my $outrecord = join( '|',
        $fld[0], $fld[3], $fld[4], $fld[5], $fld[6], $fld[7], $fld[8] );

##</code><code>##

    my $outrecord = join '|', @fld[0, 3..8];