open(classFile,'<',"Results/Classification/classesNormal.txt") or die $!; my @classes = ; close(classFile); for my $line(@classes){ my($chr,$nr,$begin,$end,$c1,$total_c1,$c2,$total_c2,$c3,$total_c3,$c4,$total_c4,$c5,$total_c5,$c6,$total_c6,$c7,$total_c7,$c8,$total_c8,$c9,$total_c9,$c10,$total_c10) = split("\t",$line); if ($total_c1 > $total_c2 && $total_c1 > $total_c3 && $total_c1 > $total_c4 && $total_c1 > $total_c5 && $total_c1 > $total_c6 && $total_c1 > $total_c7 && $total_c1 > $total_c8 && $total_c1 > $total_c9 && $total_c1 > $total_c10){ print ($chr,"\t",$begin,"\t",$end,"\t",$c1,"\n"); } if ($total_c2 > $total_c1 && $total_c2 > $total_c3 && $total_c2 > $total_c4 && $total_c2 > $total_c5 && $total_c2 > $total_c6 && $total_c2 > $total_c7 && $total_c2 > $total_c8 && $total_c2 > $total_c9 && $total_c2 > $total_c10){ print ($chr,"\t",$begin,"\t",$end,"\t",$c2,"\n"); } if ($total_c3 > $total_c1 && $total_c3 > $total_c2 && $total_c3 > $total_c4 && $total_c3 > $total_c5 && $total_c3 > $total_c6 && $total_c3 > $total_c7 && $total_c3 > $total_c8 && $total_c3 > $total_c9 && $total_c3 > $total_c10){ print ($chr,"\t",$begin,"\t",$end,"\t",$c3,"\n"); } if ($total_c4 > $total_c1 && $total_c4 > $total_c2 && $total_c4 > $total_c3 && $total_c4 > $total_c5 && $total_c4 > $total_c6 && $total_c4 > $total_c7 && $total_c4 > $total_c8 && $total_c4 > $total_c9 && $total_c4 > $total_c10){ print ($chr,"\t",$begin,"\t",$end,"\t",$c4,"\n"); } if ($total_c5 > $total_c1 && $total_c5 > $total_c2 && $total_c5 > $total_c3 && $total_c5 > $total_c4 && $total_c5 > $total_c6 && $total_c5 > $total_c7 && $total_c5 > $total_c8 && $total_c5 > $total_c9 && $total_c5 > $total_c10){ print ($chr,"\t",$begin,"\t",$end,"\t",$c5,"\n"); } if ($total_c6 > $total_c1 && $total_c6 > $total_c2 && $total_c6 > $total_c3 && $total_c6 > $total_c4 && $total_c6 > $total_c5 && $total_c6 > $total_c7 && $total_c6 > $total_c8 && $total_c6 > $total_c9 && $total_c6 > $total_c10){ print ($chr,"\t",$begin,"\t",$end,"\t",$c3,"\n"); } if ($total_c7 > $total_c1 && $total_c7 > $total_c2 && $total_c7 > $total_c3 && $total_c7 > $total_c4 && $total_c7 > $total_c5 && $total_c7 > $total_c6 && $total_c7 > $total_c8 && $total_c7 > $total_c9 && $total_c7 > $total_c10){ print ($chr,"\t",$begin,"\t",$end,"\t",$c7,"\n"); } if ($total_c8 > $total_c1 && $total_c8 > $total_c2 && $total_c8 > $total_c3 && $total_c8 > $total_c4 && $total_c8 > $total_c5 && $total_c8 > $total_c6 && $total_c8 > $total_c7 && $total_c8 > $total_c9 && $total_c8 > $total_c10){ print ($chr,"\t",$begin,"\t",$end,"\t",$c8,"\n"); } if ($total_c9 > $total_c1 && $total_c9 > $total_c2 && $total_c9 > $total_c3 && $total_c9 > $total_c4 && $total_c9 > $total_c5 && $total_c9 > $total_c6 && $total_c9 > $total_c7 && $total_c9 > $total_c8 && $total_c9 > $total_c10){ print ($chr,"\t",$begin,"\t",$end,"\t",$c9,"\n"); } }