my %hash;
my @keyarr = keys %hash;
print scalar @keyarr;