use strict;
use Benchmark;

my %h = (hrmph => 1);
my $h = \%h;

timethese( 10_000_000, {
  lhs => sub { $h{hrmph} },
  rhs => sub { $h->{hrmph} },
});