for my $user (keys %user) {
    if (<irgendwelche Tests ggf. mit geschachtelten ifs>) {
        print "Treffer: $user\n";
    }
}