you didn't say what you expect your code to do, so it difficult to offer any useful suggestions, other than glob('sample*.txt')

Maybe my @files = glob (".* *") doesn't do what you think it does?

see glob

I used glob to list all the files in my current directory and using those list of files i'm trying to find out matching files in other directory

A couple of points:

(1) In the foreach loop, $file contains a filename together with its path and extension. To extract just the name part, you need something like:

(my $basename = fileparse($file)) =~ s/ \. .* $ //x;
[download]

which uses the fileparse function from File::Basename to extract the filename, then removes the extension (if any).

(2) print Dumper(@matches); will print each match on a separate line. You would probably be better off with something like this:

printf "'%s' matches: %s\n", $basename, join(', ', @matches);
[download]

HTH,

Athanasius <°(((>< contra mundum

#!/usr/bin/perl
# non recursive case insensitive search  down 
# thru current directory for pattern in filenames.
use warnings;
use strict;
use File::Find;

$|++;

my $search  = $ARGV[0] or die "need search pattern $!\n";

my $path = '.';

my $regex =  qr/\Q$search\E/i;

find (sub { 
      #prevent recursion into subdirs
      my $n = ($File::Find::name) =~ tr!/!!; #count slashes in file
      return $File::Find::prune = 1 if ($n > 1);
      return if -d;
#      return unless (-f and -T );  # limit to text files
         print "$File::Find::name\n" if /$regex/;
       }, $path);
[download]

What a strange way to use glob(). You're better off with proper use of readdir():

# open current directory for reading
opendir my $dh, '.' or die;

# iterate through the entries
while (my $dir = readdir($dh)) {
  # your code here
}
closedir $dh;
[download]

If you want to use glob() properly, you need to do glob("*/*sample*") to get every file in the current directory's immediate subdirectories with 'sample' in its name.

There seems to be at least one real bug in your code: You aren't in /home/test when you do the glob.

use File::Find::Rule;
my @filenames = qw[ sample.txt sample123.txt  ];
my $reFilenames = join '|', map quotemeta, @filenames;
$reFilenames = qr/$reFilenames/i;

my @files = find(
    'file'     =>
    'name'     => $reFilenames,
    'maxdepth' => 1,
    'in'       => $dir
);
[download]