Select Code to Download

my @array = qw(Art bob joe andy willy Andrew john Archie);
foreach(sort {substr($a,1) cmp substr($b,1)} grep /^A/, @array){
...
Andrew
Archie
Art

foreach(sort {substr($a,1) cmp substr($b,1)} grep {substr($_,0,1) eq '
+A'} @array)