printf "keys=%d\n", (my $sc = keys(%r)) ;