my $lunch = $rice . &curry(\&vindaloo,
                           chop join('','onion','garlic','peppers','mushrooms'),
                           @chicken[0..$n]); # sliced...
chomp $lunch;