#! /usr/bin/perl -lw
use strict ;


my %r = ( 'a' => 1, 'b' => 2, 'c' => 3) ;

my $keys = keys(%r) ;
print "keys = $keys" ;

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