Select Code to Download

use strict;
use warnings;

...

print join ',', @list2,"\n";
print join ',', sort {index($sortorder,substr($a,0,1)) <=> index($sort
+order,substr($b,0,1))} @list2