Here's my answer, building on the code you have already posted to create %clone_hash.

# build the data
my %count;
while (my ($test,$result) = each %clone_hash) {

    $count{$test}{passed}++ unless ($result =~ /pass4|fail/);

}

# check the data
foreach my $test (keys %count) {

    if (! $count{$test}{passed}) {
        print "test $test had no passing results" . $/;

    } elsif ($count{$test}{passed} == 1) {
        print "test $test had only one passing result" . $/;
    }

}
[download]

I am ignoring the minor issues with your code that others have pointed out.