Select Code to Download

use Data::Dumper;

...
print Dumper \@a;
modify(@b);
print Dumper \@b;

$VAR1 = [
          5,
...
          5
        ];
Modification of a read-only value attempted at script.pl line 12.