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