Select Code to Download

my %dow = (qw(
  Sunday    0
...
# ...

  $dow{$a[7]} <=> $dow{$b[7]}

my @out =
    map { (split /%/)[2] }
...
    }
    @in
;