my $val = $hr->{val};

foreach my $key (keys %$hr) {
 # etc
}