%h = qw( ... );
$h = \%h;

# Accessing the hash and the hash reference in a tight loop.
for ( ... ) {
    my $frobnitz = $h{frobnitz};
    my $quark = $h->{quark};
    ...
}