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