foreach my $currentTestID (keys %$tests)
{
    $tests->{$currentTestID}{validated} = validate($tests->{$currentTestID});
}

##</code><code>##

sub doValidatedTests
{
    my $tests = shift;
    doTest($_) foreach ( grep {$tests{$_}{validated}} keys %$tests );
}