...
our @files=glob '*';
...
cmpthese -30, { map { $_ => "$_(\@main::files)" } @sub };