##
my $out = "-p $act1{$item} -p $act2{$item} ...";
####
my %act1 = (
"food" => "eat it",
"drink" => "drink it",
"Perl" => "play it");
my %act2 = (
"food" => "prepare it",
"drink" => "be drunk",
"Perl" => "write it");
#...