while (<DATA>) {
($PDB, $PIC) = split (/\s+/, $_) if (/^\d+.*/);
               }
@pic = $PIC;
@pdb = $PDB;
$endpdb = scalar @pdb;

for ($count = 0; $count < $endpdb; count++;) {

if ($PDB == $NUM17)  {$value = $pic[$count]};

}