#Format: each(ASSOC_ARRAY)

#! /usr/bin/perl
# The each function retrieves both keys and values from a hash
%weekday=(
              'Mon' => 'Monday',
              'Tue' => 'Tuesday',
              'Wed' => 'Wednesday',
              'Thu' => 'Thursday',
              'Fri' => 'Friday',
              'Sat' => 'Saturday',
              'Sun' => 'Sunday',
             );
while(($key,$value)=each(%weekday)){
   print "$key = $value\n";
}