for (keys %r){print "$_ $r{$_}\n"};
print "\n\$m is $m\n\$c is $c";