$array[-1] = $foo;

##</code><code>##

$array[$#array] = $foo;

##</code><code>##

for my $i (0..$#array) {
  # do something with $array[$i]
}