use Tie::IxHash;

push @data, Tie::IxHash->new( yo => mama, bliz => at );
push @data, Tie::IxHash->new( one => two, three => four);

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