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