Массивы в PERL

Имена массивов задаются так же, как и просто скалярных переменных за одним исключением- символ @, буква, и нуль или больше символов, пример:
@test, @b1, @Te_23

  Списочный литерал может быть использован для операции print, например:
print("Число 12345 можно записать так: ", 1..5, "\n"); # Будет выведено Число 12345 можно записать так: 12345 и символ новой строки.

Начнем с начала -- с присваивания:
@test=(1,2,3); # Присвоить массиву test значение из трех элементов
@test2=@test1; # Присвоить массиву @test2 все значения массива @test (скопировать)
@test3=5; # Массив из одного элемента

Обращение к элементам массива происходит так:
@test1=(1,2,3);
print $test[0]; # Напечатать первый элемент, так как в Perl нумерация элементов происходит с 0.

С элементами можно делать те же операции, что и со скалярами.
$test[0]=$test[0]+1; # Прибавить 1 к первому элементу массива @test.

Так же имеет смысл обращение к элементам массива в списочном контексте.
@test[1,2]=@test[2,1]; # Поменять местами элементы второй с третьим
@test=@test1[0,1]; Назначить массиву @test значения первых двух элементов массива @test1