#!/usr/bin/perl -w

#######################################################
# class3_03_big_arrow
#
# trying out big arrow, => , anothe way to "spell"
# a comma Perl --- to make literal lists being stuffed
# into hashes easier to read;
#
# modified by Sharon Tuttle from "Learning Perl",
#    by Schwartz and Phoenix
#
# last modified: 4-13-03
#######################################################

%order_totals = ("chocolate"=>13, 
                 "hamburger"=>10, 
                 "tofu dog"=>12,
                );


@hold_order_totals = %order_totals;
print "@hold_order_totals\n";

# end of class3_03_big_arrow