Select Code to Download

my %hash = make_me_a_hash;
my @key_order = qw[key1 key2 key3 key4];
my $packformat = "ABCDEFGH";
my $packed_str = pack $packformat, map {$_, $hash{$_}} @key_order;

my %hash = unpack $packformat, $packed_str;