Select Code to Download

use Data::Dumper;


...

print Dumper(\@a);
print Dumper($a);

$VAR1 = [
          [
...
          '4'
        ];