foreach my $name (qw(Test1 test2 Test3)) {
  unless(file_defines_package_of_same_name($name)) {
    print "$name\n";
  }
}