c:\@Work\Perl\monks>perl -wMstrict -le
"my @ra = qw(a b c);
 print 'A: array max index: ', $#ra;
 ;;
 $#ra += 1_000_000;
 print 'B: array maximum index:      ', $#ra;
 print 'B: number of array elements: ', scalar @ra;
"
A: array max index: 2
B: array maximum index:      1000002
B: number of array elements: 1000003