Select Code to Download

sub printh {
    tie my %x, 'Tie::IxHash', @_;  # Recreate the hash. Expensive
...
}

printh(%h);  # Flatten the hash

sub printh {
    my ($x) = @_;
...
}

printh(\%h);  # Pass a reference