use strict;
use warnings;

my %hash;

$hash{aa}='test1';
$hash{bb}='test2';
$hash{cc}='test1';
$hash{dd}='test3';

my $counter = 1;
foreach my $key (sort keys %hash) {
        # schon beim ersten Durchlauf wird der Hash geleert; keine Keys mehr!
	%hash = ();

	print $counter++, "\n";
}

__END__
Resultat:
1
2
3
4