Select Code to Download

use Tie::IxHash;

...
push @data, Tie::IxHash->new( one => two, three => four);

print join(", ", keys %{$data[1]});  # one, three