my %hash;

@hash{a..f} = 10..15;
my $count;
while(my ($k,$v) = each %hash) {
    $count++;
    print "$k => $v ($count of ", scalar(keys %hash),")\n";
}
__END__
e => 14 (1 of 6)
e => 14 (2 of 6)
e => 14 (3 of 6)
e => 14 (4 of 6)
e => 14 (5 of 6)
e => 14 (6 of 6)
e => 14 (7 of 6)
...
(runs forever)