enum days   <mo tu we th fr sa su>;
enum months <jan 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($^a.day-of-week - 1) cmp
                     ~days($^b.day-of-week - 1) ||
                     ~months($^b.month - 1)     cmp
                     ~months($^a.month - 1)
                   }
              ], @dates[^365];