$VAR1 = [
          '/root/prac/NSN_SGSN/generate_ASR_PSR_report.pl.gz
',
          '/root/prac/NSN_SGSN/generate_nsn_sgsn_report.pl.gz
',
          '/root/prac/NSN_SGSN/month_run.pl.gz
',
          '/root/prac/NSN_SGSN/scope.pl.gz
',
          '/root/prac/NSN_SGSN/size.pl.gz
',
          '/root/prac/NSN_SGSN/System_Health_Details.pl.gz
',
          '/root/prac/NSN_SGSN/test.pl.gz
'
        ];
No such file or directory at gun.pl line 17. 

##</code><code>##

 
#!/usr/bin/perl

use warnings;
use strict;

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

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

my @cdr_list=`ls $cdr_dir/*tar.gz`;
print Dumper \@cdr_list;

foreach my $file (@cdr_list)
{
        chomp $file;
        open my $fh, q{<}, qq{tar xzOF $file | } or die $!;
        while ( my $line = <$fh> )
        {
                print $line;
        }
        close $fh;
}