in reply to Working with Arrays
Populate the hash in your while loop.
my %foo; while (<DATA>) { .. $foo{ $PIC } = $PDB; } [download]
-- Diplomacy is the art of saying "Nice doggie" until you can find a rock. naChoZ