Select Code to Download

my %hash = map {$gp1[$_] => $gp2[$_]} 0 .. $#gp1;

#13488050:c183911-182727     57165207:6809301-6810488

foreach my $line (@blast)       {
...
  }
}