my @days = qw ( Sun Mon Tue Wed Thur Fri Sat );
my $weekday = $days[$wkday];