Select Code to Download

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

!/usr/bin/perl -w

...
                $hash{@$ary[1]} = push @$ary[0];
}
print Dumper %hash;