#!/usr/bin/env perl

use 5.012;
use warnings;

sub read_order_back {
    my %courses = (
        appetizer => 'soup',
        salad     => 'tossed',
        @_
    );
    die "No main?!" unless defined $courses{main};
    print "\u$courses{appetizer} to start, followed by a\n"
        . "lovely $courses{salad} salad, with $courses{main}\n"
        . "for your entree";
    print ", and finally a\nstunning $courses{dessert}" 
        if defined $courses{dessert};
    print ". Bon apetit!\n";
}
   
read_order_back(main => 'ribs');