#!/usr/bin/perl
sub FileFinder {
   my ($target, @dir) = @_;
   return (grep {-e $_} map {"$_/$target"} @dir)[0];
}
 
open(F, FileFinder('FileFinder.pl', qw(some/ dirs/ ./)) || die "File not found") or die $!;