for(my $i = 0; $i < $originalfilecount; $i++)
        {
            if($first)
            {
                $first = 0;
                
                #print OUT5 "\t$resultarray[3]";
                $outputb = "\t$resultarray[3]";
            }
}

        #print OUT5 "\n";
        
            push(@output5a, $outputa);
            push(@output5b, $outputb);
           
           for(@output5b){s/0/1/g}; #convert output from 0 to 1