RECORD: foreach my $filenames (@filenames) {
    my $XML_infile = "C:/_OUTPUT/$filenames";
    chomp $XML_infile;
    open INDATA, "C:/_OUTPUT/$filenames" or die "INDATA: $! \n\n ";
    while  (!eof INDATA ) {
        my $line = <INDATA>;
        if ( $line =~ /\"PlateID\"/g ) {
            $outfile= ">C:/_OUTPUT/_DATA/$filenames" . $plate_id . ".txt";
            if ( ($plate_id eq '' ) or ( ($FAM eq '' ) && ($VIC eq '' ) ) ) { 
                popup_error_window($XML_infile) ;
                
                #Jump to next file in @filenames from here
                next RECORD;
                #Duh was staring right at me.  
                	
            }
            elsif () {#pull data for PlateID} 
        }
        elsif () {#Process rest of file } 
    }
    #complete processing data
}#endforeach