Select Code to Download

my $keys = keys(%r) ;

my $keys = @keys;

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

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