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