use strict;
use warnings;


my @x = 1..10;

print '@x is at ', \@x, "\n";

$#x = -1;

my @y = 1..5;
print '@y is at ', \@y, "\n";
print '@x is at ', \@x, "\n";
__END__
@x is at ARRAY(0x8165ccc)
@y is at ARRAY(0x8183ab0)
@x is at ARRAY(0x8165ccc)