sub newfoo {
        my %hash = @_;
        foreach (keys %hash) {print "$_: $hash{$_}\n";}
}