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];

##</code><code>##

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];

##</code><code>##

substr(scalar localtime($_),0,3),
substr(scalar localtime($_),+5,3)

##</code><code>##

$a->[1] cmp $b->[1] || $b->[2] cmp $a->[2]