Select Code to Download

my @weekdays = qw/Monday Saturday Thursday/;
my %order = (
...
print join ",", map { $_->[0] } 
sort { $a->[1] <=> $b->[1] }
map { [$_, $order{lc $_}] } @weekdays;