Select Code to Download

use Data::Dumper;
use strict;
...
print Dumper(\@a);
@a = $array[$x..$y];
print Dumper(\@a);

Use of uninitialized value in range (or flip) at math1.pl line 8.
Use of uninitialized value in range (or flop) at math1.pl line 8.
...
$VAR1 = [
          'A'
        ];

use Data::Dumper;
use strict;
...
print Dumper(\@a);
@a = @array[$x..$y];
print Dumper(\@a);

$VAR1 = [
          'A',
...
          'A',
          'B'
        ];