keys%{{@A,reverse@A}} # Then again...
keys%{{map{$_,$_}@A}} # Maybe it's a tie with tye.

##</code><code>##

keys%{{map{$_,1}@A}}  # Oh duh! OK. One under. :-)