my $counter = 0;
$counter++ for keys %hash;