print "$_ $r1->{$_}\n" for keys %$r1;
print "$_ $r2->{$_}\n" for keys %$r2;