#!/usr/bin/perl
#!/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);
#print $t->csv;


#t2 = $t->group(["Department","Sex"],["Name", "Salary"], [sub {scalar @_}, \&average], ["Nof Employee", "Average Salary"]);
my $t2 = $t->group(["col1","col9"]);
print $t2->csv;