Search Results

open $fh,"<f1.txt";
while(<$fh>){
chomp;
my @arr = split;
$hash{$arr[2]}->{'SEQ'}=$.;
$hash{$arr[2]}->{'VAL'}=$_;
$hash{$arr[2]}->{'GAP'}=10000;
}
open $fh2,"<f2.txt";
while(<$fh2>){...