sub f {
  my $key = shift;
  return $hash{ $key };
}