my @a = keys(%hash)
print "$#a\n";