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

##</code><code>##

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

##</code><code>##

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