#!/usr/bin/perl

use strict;
use warnings;

use Data::Table;

my $t = Data::Table::fromCSV("/root/prac/Telenor_CDR/SMSCDR_POSTPAID_151013000000_10.84.0.29_AS.log", 0, undef, { delimiter => '\|'});
my $t2 = $t->group(["col1","col9"]);
print $t2->csv;