>perl -e "$a=[120]; for (-1..@{$a}){print qq($_\n)};
   print qq(  \$a=$a    \@a=@{$a}  value=$a->[0]);"

OUTPUT:
-1
0
1
  $a=ARRAY(0x224f44)    @a=120  value=120