Help for this page

Select Code to Download

Select or download this

# Line1: icecream "toasted sandwich" lemonade 33
# Line2: icecream "toasted sandwich" 14
...
# Format1: dessert meal drink cost
# Format2: dessert meal cost
# Format3: meal cost drink dessert

Select or download this

use strict;
#use warnings;
...
    print "[$docket_num] Dessert", $dockets{$docket_num}{'dessert'},"\
+n";
    print "[$docket_num] Cost: ", $dockets{$docket_num}{'cost'},"\n";
}