Select Code to Download

for my $ref (sort {substr($a,1) <=> substr($b,1)} grep {substr($_,0,1)
+ eq 'A'} @array) {
    #whatever with $ref
}

for my $ref (sort grep {substr($_,0,1) eq 'A'} @array) {
    #whatever with $ref
}

for my $ref (sort grep /^A/, @array) {
    #whatever with $ref
}