#!/usr/bin/perl 

use strict; 
use warnings; 

my $file = $ARGV[0] || 'pickcpua.dat'; 
my $col = $ARGV[1]; 

open(my $CPUFILE, "<", $file) || die "Unable to open sorted file !"; 

my @values; 
while (<$CPUFILE>) { 
  chomp; 
  my @col = split /,/;     # Assume basic comma delimited 

if ($col[$ARGV[1]] > 0)  { 
  push @values, $col[$ARGV[1]];   # Column 2 is what we want 
  } 
} 

my $total = 0; 
$total += $_ for @values; 
my $average = $total /@values; 

print "Average CPU Time for all servers in cpuatest.dat file is $average";