Select Code to Download

#filenames looks like this: category_Title Words_1 
...

$sub3 = sort { $b <=> $a } $sub3;

my @newarray = ($sub1,$sub2,$sub3);
@newarray = sort { $a->[2] cmp $b->[2] } @newarray;