place_settings.pl

#!/usr/bin/perl
use strict;
use warnings;

# This is a script to show how to set a table for a formal dinner.
# The information came from various places on the internet.
# It may be inaccurate.

my @courses = qw(salad fish entree oyster dessert);

if (@courses > 3) { 
  my @last = splice(@courses,3,-1);
  my @forks = map { "$_ fork" } @courses;
  my @knives = map { "$_ knife" } reverse @courses;
  my $last = grep { /oyster/ } @last ? 'oyster fork' : '';
  print 'napkin '.join(' ',@forks).' plate '.join(' ',@knives).' spoon '.$last;
}