#- The Subroutine To Process Files And Directories 
    my $process_file = sub {
        if ($_ eq $file_name){push (@a_files, $File::Find::name);}}

    # Search file_path for the file
    find($process_file, $file_path);