Select Code to Download

use Modern::Perl;
use Data::Dumper;
...
my @b;
push @b, $_->[1] for @a;
print Dumper \@b;

$VAR1 = [
          4,
...
          6,
          7
        ];