...ext;}for(my $i=0;$i<=$#sampleName;$i++){$expArr[$i]=~s/\"//g;if($samp1e[5]>$pl){next;}push(@{$hash{$sampleName[$i]}},$expArr[$i]);}}}close(EXP);my %probeGeneHash=();open(GPL,"$gplFile") or die $!;while(my $gpl=<GPL>){next if($gpl=~/^(\#|ID|\!|\n)/);chomp($gpl);next if($pl>130);my @gpl...