July 26, 2010 11:03
diff --git a/b.pl b/b.pl
 #!/usr/bin/perl -w
 use strict;

 use Benchmark;


 my $h = { map { $_, $_ } 1..10000 };

 timethese( 1000, {
    each => sub{ my $i = 0; while( my ($k, $v) = each %$h ) { $i++ }   },
    values => sub{ my $i = 0; foreach my $v (values %$h) { $i++ }   },
 });
	#!/usr/bin/perl -w
	use strict;

	use Benchmark;


	my $h = { map { $_, $_ } 1..10000 };

	timethese( 1000, {
	each => sub{ my $i = 0; while( my ($k, $v) = each %$h ) { $i++ } },
	values => sub{ my $i = 0; foreach my $v (values %$h) { $i++ } },
	});