RosettaCodeData/Task/Arrays/Perl/arrays-2.pl

my @arr;

push @arr, 1;
push @arr, 3;

$arr[0] = 2;

print $arr[0];