"And I got that $csv->setDelimiter('|'); from http://search.cpan.org/~erangel/Text-CSV/CSV.pm."

There are two problems with the module you've linked to. From http://search.cpan.org/~erangel/Text-CSV/CSV.pm, follow the Text-CSV link (top, left-hand corner) to see the distribution details. Here you'll find it's:

1. almost a decade old: dated "19 Jun 2006"
2. clearly labelled in bold, red letters: ** UNAUTHORIZED RELEASE **

I suggest you get the current version (http://search.cpan.org/perldoc?Text%3A%3ACSV) and then follow ++kevbot's advice regarding the use of { sep_char => '|' }.

#!/usr/bin/perl

use strict;
use warnings;
use Text::CSV;

my $csv = Text::CSV->new({ sep_char => '|' });
open my $fh, "<", "ravi.csv" or die "ravi.csv: $!";
my $count = 0;

while (my $row = $csv->getline($fh)){
    my @fields = @{$row};
    if($fields[9] eq 'Submit' and $fields[12] eq 'GSM' and $fields[13]
+ eq 'SMPP'){
        ++$count;
    }
}

print "Count is: $count\n";
exit;
[download]

Ya I understand my problem now. But I solved this problem earlier in a way.

foreach my $Postpaid_file (@Postpaid_files)
{
        open (POST ,"$Postpaid_file")     or print "cannot open file\n
+";
        while(my $cdr_post_line = <POST>)
        {
                chomp $cdr_post_line;
                my @cdr_post_array = split(/\|/,$cdr_post_line);
                if ($cdr_post_array[12] eq "GSM" && $cdr_post_array[9]
+ eq "Submit")
                {
                        $cdr_post_MO_cnt++ if any { /^\Q$cdr_post_arra
+y[11]\E$/ } @MOresp_error;
                        $Total_GSM_attempts++ unless any { /^\Q$cdr_po
+st_array[11]\E$/ } @MOresp_error;
                }
                if ($cdr_post_array[12] eq "SMPP" && $cdr_post_array[9
+] eq "Submit" && $cdr_post_array[10] eq "0")
                {
                        $cdr_post_AO_cnt++;   #if any { /^\Q$cdr_post_
+array[11]\E$/ } @MOresp_error;
                        $total_AO_success++ unless any { /^\Q$cdr_post
+_array[11]\E$/ } @MOresp_error;
                        $Total_SMPP_attempts++ unless any { /^\Q$cdr_p
+ost_array[11]\E$/ } @MOresp_error;
                }
                if ($cdr_post_array[12] eq "GSM" && ($cdr_post_array[1
+3] eq "GSM" || $cdr_post_array[13] eq "ESMEGW") && $cdr_post_array[9]
+ eq "Submit")
                {
                        $total_MT_P2P++ unless any { /^\Q$cdr_post_arr
+ay[11]\E$/ } @MOresp_error;
                }
                if ($cdr_post_array[12] eq "GSM" && ($cdr_post_array[1
+3] eq "GSM" || $cdr_post_array[13] eq "ESMEGW") && $cdr_post_array[9]
+ eq "Submit" && $cdr_post_array[7] eq "Delivered")
                {
                        $total_MT_P2P_success++;
                }
[download]

I thought we can do a better code (by not using all if's to check the conditions) using modules. Almost here also we are doing same. Then what's the benefit using this module. Or is there any other way to simpler my code(above mentioned)????

Update

The main reason to simplify my code is its become 624 lines which contains mostly if's(nearly one if for every four lines) and to check "eq && eq && eq". Its bulky, error prone & (important one) I dont like this :-)

I thought we can do a better code (by not using all if's to check the conditions) using modules

No modules needed. Just use logic and nest/chain the if's:

for my $Postpaid_file (@Postpaid_files) {
    open my $POST, $Postpaid_file or die "cannot open $Postpaid_file: 
+$!\n";
    while (my $cdr_post_line = <$POST>) {
        chomp $cdr_post_line;
        my @cdr_post_array = split /\|/, $cdr_post_line;
        if ('Submit' eq $cdr_post_array[9]) {

            if ('GSM' eq $cdr_post_array[12]) {
                $cdr_post_MO_cnt++ if any { /^\Q$cdr_post_array[11]\E$
+/ } @MOresp_error;
                $Total_GSM_attempts++ unless any { /^\Q$cdr_post_array
+[11]\E$/ } @MOresp_error;

                if (any { $_ eq $cdr_post_array[13] } qw( GSM ESMEGW )
+) {
                    $total_MT_P2P++ unless any { /^\Q$cdr_post_array[1
+1]\E$/ } @MOresp_error;
                    $total_MT_P2P_success++ if 'Delivered' eq $cdr_pos
+t_array[7];
                }

            } elsif ('SMPP' eq $cdr_post_array[12] && '0' eq $cdr_post
+_array[10]) {
                $cdr_post_AO_cnt++;   #if any { /^\Q$cdr_post_array[11
+]\E$/ } @MOresp_error;
                $total_AO_success++ unless any { /^\Q$cdr_post_array[1
+1]\E$/ } @MOresp_error;
                $Total_SMPP_attempts++ unless any { /^\Q$cdr_post_arra
+y[11]\E$/ } @MOresp_error;
            }
        }
    }
}
[download]

لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ