my @file_list;
my $file;
my $path = "/home/blm/url/";

find (\&wanted, $path);

foreach $file (@file_list) {
   ...
}

sub wanted{
   if (-f)
   {
       push @file_list, $_;

   }
}