use Tie::IxHash;

tie %order, 'Tie::IxHash', map { $_ => $my_hash{$_}; } @array;