my $keys = keys(%r) ;

##</code><code>##

my $keys = @keys;

##</code><code>##

printf "Number 1: %d\nNumber 2:%d\nNumber 3:%d\n", values(%r);

##</code><code>##

printf "No of keys=%d\n", scalar keys(%r);