while (my ($k, $v) = each %hash) {
    print "$k\t$v\n";
}