#! /usr/bin/perl -w

# %hash1=("key1"=>"value1","key2"=>"value2");
%cant_make_day =(
         "Mon"=>"Jim",
         "Tues"=>"Jim, Paul",         
         "Weds"=>"Jim, Paul, Annie" # real people!
         );

while (($elim_key,$elim_value) = each %cant_make_day)
  {
 # is this array necessary?
    @array= split /,/, $cant_make_day{$elim_key};
    $length=@array;

# sets value to length of array stored in hash
    $which_day{$elim_key}=scalar @array; 
print "The number of people on $elim_key = $which_day{$elim_key}\n";
  }