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