use warnings;
use strict;

$[ = 2;
my @array = ('a', 'b', 'c');

print "$#array\n";

$[ = 200;
print $#array;