use strict;
use warnings;

my $sortorder = 'azbycx';
my @list2 = qw(zulu charlie xray yankee bravo alpha); 

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