use Tie::IxHash; tie %order, 'Tie::IxHash', map { $_ => $my_hash{$_}; } @array; [download]
In reply to Re: hash ordered by an array by Anonymous Monk in thread hash ordered by an array by coldy