my %order = map {
    split ' ', 'Time::Piece'->strptime("$_", "%d")->strftime('%A %u')
} Time::Piece::day_list();