I have no idea if this will fix your problem, but your substitution probably needs to have the dot backwhacked, if ($pdb_res == $value[$i]) {s/100\.0/3.0/}; Otherwise it matches any character after '100' and before a zero.
Also, ($pdb_res) = (split /\s+/,$_) [3]; is written as well by $pdb_res = (split)[3]; but that does not reflect any error and does not change the correctness of the code.
After Compline,
Zaxo
In reply to Re: going through an array
by Zaxo
in thread going through an array
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |