#!/usr/bin/perl -w

use strict;

my %longday =("Sun", "Sunday",    "Mon", "Monday",   "Tue", "Tuesday", 
	   "Wed", "Wednesday", "Thu", "Thursday", "Fri", "Friday",
	   "Sat", "Saturday");

# The spaces are necessary because of the quotes around "Tue".  
# print allows a list of things to be printed.
print( "Today is ",$longday{"Tue"}, "\n" );  

# This won't work because %longday is not interpreted in list context
# and % is a valid string character.
 print( "Days: %longday\n" );
print %longday, "\n" ;

# To print a hash (not something we do often) try

my @temp = %longday;
print ("Days: @temp\n");

# Why would you want to sort the days?  No really good reason.  I just
# wanted to show you how to sort keys.
my @orderedDays = sort( keys (%longday) );

print( "Ordered Days = @orderedDays\n" );