#!/usr/bin/perl

use strict;
use warnings;
use List::AllUtils qw( shuffle sort_by );
my @weekdays = shuffle qw/Monday Tuesday Wednesday Friday Sunday Saturday Thursday/;

@weekdays = @{[ sort_by { lc =~ tr/muwhft/a-e/dr } @weekdays ]};
unshift(@weekdays,pop(@weekdays));
print "@weekdays\n";