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