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