Help for this page
18 56 25 10 12 45
while (<DATA>) { ($PDB, $PIC) = split (/\s+/, $_) if (/^\d+.*/); ... if ($PDB == $NUM17) {$value = $pic[$count]}; }