An easy approach to globbing is to use File::Glob::bsd_glob:

use File::Glob qw( bsd_glob );
# Wildcard-expand @ARGV:

BEGIN {
    @ARGV= map { bsd_glob $_ } @ARGV
}
[download]

I guess you have 1000 files in sentence folder want to execute run.pl script on each file and create output of each file into output directory with the same input file name?

This post will help you, Input Output Question

Use opendir and readdir with while loop on sentence folder so you will get all the input file names, and pass those input filenames to your run.pl as command line argument.

Sample Code:

#!/usr/bin/perl
use strict;
use warnings;

my $directory = '/sentence';
opendir (DIR, $directory) or die $!;

while (my $file = readdir(DIR)) {
#Run your script here with ``(backtick) or system()
}
closedir(DIR);
[download]

If you want to pass all the 1000 files to your run.pl script, in the while loop push each file name into an array then call your script as `run.pl @filenames`

Even you can also use glob to get the list of files from a directory.

Use File::Slurp::read_dir to get the list of files:

use File::Slurp;
my @files = read_dir '/sentence';
[download]

#! /usr/bin/perl
use strict;
use warnings;

opendir(DIR, "/full/path/to/sentence/");
my @filesInDirectoryA = readdir(DIR); 
opendir(DIR, "/full/path/to/name/");
my @filesInDirectoryB = readdir(DIR); 

my $count = @filesInDirectoryA;
my $x = 0;

for ($x = 0; $x<$count; $x += 1)
    {
        if ($filesInDirectoryA[$x] ne $filesInDirectoryB[$x])
            {
                die "mismatched files!\n\n";
            }
    }

for ($x = 0; $x<$count; $x += 1)
    {
        unless ($filesInDirectoryA[$x] =~ m/^\./)
            {
                system("perl run.pl /full/path/to/sentence/$filesInDir
+ectoryA[$x] /full/path/to/name/@filesInDirectoryB > /full/path/to/out
+put/$filesInDirectoryA[$x]");
            }
    }
[download]

That should take all the files in the sentence and name directories and feed them to your script. Provided that the files in each of the directories have the same name. You need to replace the path names.

G'day lakssreedhar,

That doesn't look like a Perl question at all: please mark it as OT. [In case you didn't know, OT = Off Topic]

The answer will depend on your OS. On a *nix system, I'd probably use for:

$ for i in {1..2}; do echo $i; done
1
2
[download]

That doesn't look like a Perl question at all:

Sure does, why use shell to call perl program when you can just call a perl program?