while(my($key, $value) = each(%hash) ) {
        print "$key => $value\n";
    }

##</code><code>##


 my($key, $value);
 while(($key, $value) = each(%hash) ) {
        print "$key => $value\n";
    }