Select Code to Download

use strict;
use warnings;
...

my @sorted = sort { lc $a cmp lc $b } sort { $b cmp $a } @list;
say for @sorted;

$ perl sort_lc.pl
P007_yum
...
P007b_yum
P007b_Yum
P007B_YUM