Select Code to Download

    my $last_time = time;
    sort {
...
            };
            $a <=> $b
         } @list;

for (@items) {
    push @$_, deaccent( $_->[$selected+2] ) . $_->[$selected+2];
};
@items = sort { $a->[-1] cmp $b->[-1] } @items;