@A{keys %r} = keys %r;

##</code><code>##

foreach $key (keys %r) {
	$A{ $key } = $key;
}