my %foo;
while (<DATA>) {
  ..
  $foo{ $PIC } = $PDB;
}