Select Code to Download

my @array = map { $result{$_} } sort { $a<=>$b } keys %result;

$VAR1 = [
          [
...
            '14835',
            '16718'
          ], continues....