# $last = n aus $n

for my$i (1..$last) {
   push(@arr,${$i});
}