As you suggested I changed my ls with File::Glob. Now help me in how to read .gz files???

 
#!/usr/bin/perl

use warnings;
use strict;
use File::Glob ':bsd_glob';

use Archive::Tar;
use Data::Dumper;

my $cdr_dir="/root/prac/NSN_SGSN";


my @list = bsd_glob('*.gz');
print Dumper \@list;

foreach my $file (@list)
{
      #open gz file, read line by line
}
[download]

FAQ

How can we use open to read .gz files. I can use to read after unzipping. But I dont want to unzip it. I want to read it directly without unzipping. Is there any modules to do like that???

You already have been introduced to the concept of reading from pipes. Maybe try

my $cmd = sprintf 'gzip -cd "%s"', $file;
open my $fh, $cmd
    or die "Couldn't read [$cmd]: $!";
[download]

In the code I am printing the list of files. In that it showing files. But while trying to read it's showing error like this.

 
[root@ems NSN_SGSN]# perl gun.pl
$VAR1 = [
          'generate_ASR_PSR_report.pl.gz',
          'generate_nsn_sgsn_report.pl.gz'
        ];
Couldn't read [gzip -cd "generate_ASR_PSR_report.pl.gz"]: No such file
+ or directory at gun.pl line 20.
[download]

#!/usr/bin/perl

use warnings;
use strict;
use File::Glob ':bsd_glob';

use Archive::Tar;
use Data::Dumper;

my $cdr_dir="/root/prac/NSN_SGSN";

my @list = bsd_glob('g*.gz');

print Dumper \@list;

foreach my $file (@list)
{

        my $cmd = sprintf 'gzip -cd "%s"', $file;
        open my $fh, $cmd  or die "Couldn't read [$cmd]: $!";
        while ( my $line = <$fh> )
        {
                print $line;
        }
        close $fh;
}
[download]