Select Code to Download

#!/usr/bin/perl -w

...

use Data::Dumper;
print Dumper(\@a);

$VAR1 = [
          {
            'idx' => 0,
...
                      ]
          }
        ];

my @a = do {
    my $idx = 0;
...
        [ (split ' ', $_), $idx++ ],
    }@$arr
};