my %h = (a=>1, b=>2);
print 0+keys(%h), "\n";

my @a = qw( a b c );
print 0+@a, "\n";