my $PERcode =  (split(/,/,$line2))[0];
    my $FDXcode =  (split(/,/,$line2))[1];
       ...

##</code><code>##

    my ($PERcode,$FDXcode,...)= split /,/,$line2;

##</code><code>##

if 
field1 ne "" 
field7 ne ""

##</code><code>##

if ($CODE1 eq $PERcode) && ($QSIGN1 eq '' or $QSIGN eq $QSIGN1) && ($ASIGN eq '' or $AMTSIG eq $ASIGN) ...