use warnings;
use strict;

my $h = {FOO => 1, BAR => 2};
my %hash = %{$h};
print $hash{FOO}, "\n";
print $hash{BAR}, "\n";