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

##</code><code>##

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