Select Code to Download

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

while (<>) {
    my( $word1, @record ) = split /\|/;

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