my $yum;
my $pants = 33;
my @ingredients = (qw(avocado cucumber rice pickled_ginger wasabi));
if (fork){die "Use chop()sticks!\n"}
chop @ingredients;
for (@ingredients){
    $yum += $_;
}
chomp $yum;
untie $pants;