use strict;
use warnings;

my @a = (1,2,3);
print $#a, "\n";
delete $a[1];
print $#a, "\n";