my @a= ( 0, 1 );
$a[-1]= -1;    # @a is now ( 0, -1 )
$a[-2]= -2;    # @a is now ( -2, -1 )
$a[-3]= -3;    # fatal error