return sort grep{ substr( $_ , 0, 1 ) eq 'A' } @array;