( $fh{$word1} ||= IO::File->new("> $word1")
      or die "Error opening $word1 for writing: $!\n"
    )->print( @record );