Select Code to Download

my %act = ("food"  => "eat it",
           "drink" => "drink it",
           "Perl"  => "play it");

my $item = "Perl";
my $out = "-p $act1{$item} -p $act2{$item} -p ... ";

-p $act1{$item} -p $act2{$item} ...