enum days   <<:mo(1) tu we th fr sa su>>; 
enum months <<:jan(1) feb mar apr may jun jul aug sep oct nov dec>>;

my $noon = DateTime.new(now).truncated-to(day).delta(12, hours);

my @dates = $noon, *.delta(1, day), ... *;

my @ordered = sort [ { ~days(.day-of-week) },
                     { ~months(.month) } is descending
              ], @dates[^365];