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