sub FindFile { my $file = shift; my @directories = @_; my $pathtofile; unshift(@directories,"./"); # this could still cause scalar context... # return File::Finder->name($file)->in(@directories); # this forces list context return @{[File::Finder->name($file)->in(@directories)]}; };