while (<IN2>) {
chomp $_;
$i++;
($pdb_res) = (split /\s+/,$_) [3];

#print "$pdb_res\n";

if ($pdb_res == $value[$i]) {s/100.0/3.0/};
print OUT "$_\n";
}