for (map "A$_", sort { $a <=> $b } map /^A\d+$/ ? substr($_,1) : (), @array) {
... 

##</code><code>##

for (sort grep /^A/, @array) {
...