return (map{-e "$_/$target" ? "$_/$target" : ()} @dir)[0];

##</code><code>##

sub FileFinder {
  my $target=shift;
  -e "$_/$target" && return "$_/$target" foreach @_;
  undef 
}