Sandwich.pl

#!/usr/bin/perl
use kitchen;
my @sandwich=qw(bread ham cheese more_bread);
$sandwich=join('mustard',@sandwich);
chomp($sandwich);