Select Code to Download

my $sortstr = join('', @list);
my @sorted_list = sort {
...
        $a cmp $b
    } @list2;

my $sortstr = join('', @list);
my @sorted_list = sort {
...
        ||
        $a cmp $b
    } @list2;