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