my @days = map _( $_ ), qw[ Mon Tue Wed Thu Fri Sat Sun ];