11. Какие значения будут иметь переменные $х, @list1, @list2 после выполнения программы:
#!/usr/bin/perl
$x = 0;
@list1 = (1, 2, 3);
@list2 = func( );
sub func {
local ($x);
$x = 1;
@list1 = (4, 5, 6);
}
12. Напишите подпрограмму, которая выводит пронумерованный список своих аргументов.
13. Напишите подпрограмму, которая выводит пронумерованный список своих аргументов в обратном порядке.
14. Напишите подпрограмму, которая подсчитывает число символов, введенных из стандартного ввода,
и выводит результат,
15. Напишите подпрограмму, которая выводит свои параметры-массивы в обратном порядке по элементам.
16. Напишите подпрограмму, которая для двух своих параметров-массивов осуществляет взаимный
обмен элементов с одинаковыми индексами.