sub failsToCompile {
  my $hashRef = shift;
  my $val;
  foreach my $key (keys %$hashRef) {
    $val .= $hashRef{$key};
  }
  return $val;
}

##</code><code>##

sub worksCompilingFine {
  my $hashRef = shift;
  my %hash = %$hashRef;
  my $val;
  foreach my $key (keys %hash) {
    $val .= $hash{$key};
  }
  return $val;
}