use strict;

my $WAI_cat;
my $lester_cat;
my $pic_cat;
my $manu_cat;

my $part_entry = {
  "lester" => "12345",
  "WAI" => "2-2342-01DU",
  "pic" => "340-87",
  "manu" => "72 4223"
};

foreach(keys %$part_entry)
{
 my $str= "\$\$".$_."_cat{'$$part_entry{$_}'} = \$part_entry";  
 #print $str.="\n";
 eval($str);
}

print $$WAI_cat{"2-2342-01DU"}{lester}."\n";     
print $$pic_cat{"340-87"}{manu}."\n";