use strict;use warnings;print STDERR "gene symbol column number: ";my $geneSymbolCol=<STDIN>;chomp($geneSymbolCol);$geneSymbolCol--;my $expFile="probeMatrix.txt";my $gplFile="ann.txt";my $expFileWF="geneMatrix.txt";my %hash=();my @sampleName=();open(EXP,"$expFile") or die $!; open(PL,"GEOimmun...