Select Code to Download

my %hash1;
open my $IN, "file1.txt" or die $!;
...
  $hash1{$line[0]} = 1; ## if your first column is a sample name or ch
+ange it accordingly
}
close($IN);

my %CommonSampleNames

...
}
}
close($IN1);

my %supHash

...

}
close($ref);