Select Code to Download

use strict;

...
use Data::Dumper; $Data::Dumper::Indent = $Data::Dumper::Sortkeys = 1;
print "", Dumper(\@a), "\n";