$[ = 10;
my @arr = ('a', 'b');
use Data::Dumper;
warn Dumper [ $#arr, scalar @arr ];
__END__
$VAR1 = [
          '11',
          2
        ];