use Tie::IxHash;

my %th;

tie %th => "Tie::IxHash", qw/ foo bar baz quux /;
print %th, $/;
@th{qw/one three/} = qw/two four/;
print %th, $/;

__output__

foobarbazquux
foobarbazquuxonetwothreefour