Select Code to Download

use strict;
use warnings;
...
(push @one , $hash{$_}), push @two, $_ foreach ( keys %hash );

print "@one\n@two";

one three two
1 3 2