for (keys %{ $weapons_ref }) {
    ...
}

##</code><code>##

map { 
    ... 
} keys %{ $weapons_ref };