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