my $keys = keys(%r) ;