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

This will sort by the smallest integer key in each @Aname element. If there will only ever be a single key you can omit the sort in front of the grep.