my %days = map { substr($_,0,3) => $_ } 
    qw/Monday Tuesday Wednesday Thursday Friday Saturday Sunday/;