while (($key, $value) = each %hash) {

##</code><code>##

foreach my $key (keys %hash) {
    my $value=$hash{$key};