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