my @keys = keys %hash;
my $length=$#keys+1-$[;
print "$length\n";