foreach my $t (keys %tests) {
    if ( eval("$t '$myfile'") )
    ...