No merlyn its not. - wish i was still so young!
Its part of some code I now have to support but don't quite understand, I don't recognise the line @A{keys %r} = keys %r; as normal Perl.

"We are all prompted by the same motives, all deceived by the same fallacies, all animated by hope, obstructed by danger, entangled by desire, and seduced by pleasure." - Samuel Johnson