my @date = split(" ", localtime(time));
my $day = $date[0]; 
my %days = ();