@Aname = map {$_->[0]} sort {$a->[1] <=> $b->[1]} map {
    [$_, sort {$a <=> $b} grep {/^\d+$/} keys %$_]
} @Aname;