#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=11145633
use warnings;
use List::AllUtils qw( nsort_by );

my @weekdays = qw/Monday Saturday Thursday/;

print "$_\n" for
  nsort_by { 'motuwethfrsasu' =~ substr lc, 0, 2; $-[0] } @weekdays;