$x->[-1]=$y; 
  # is the same as 
$x->[0]=$y;
  # when @$x==0 ?