#!/usr/bin/perl

use File::Find;

##</code><code>##

use strict;
use warnings;

##</code><code>##

 sub filefind
 {
 # my $aName = @_;
 # my $file = $File::Find::aName;
  my @dirs = ($dir);
  find(\&mysub, @dirs);
  return @files;
 }

##</code><code>##

   if ($_ =~ $name)
   {
   
    push @files, $_;
 
   }