#!/usr/bin/perl 

use strict; 
use warnings; 

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

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

  my @values; 
  my @colval; 

for($index=1; $index<10; $index++) { 

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

      if ($col[$index] > 0)  { 
        push @values, $col[$index];   # Column 2 is what we want 
        push @colval, $col[$index];   # Column 2 is what we want 
        } 
   }        ## End while loop 

my $total = 0; 
$total += $_ for @colval; 

  print "Pass $index through data \n"; 
  print "colval is @colval \n"; 
  print "values is @values \n"; 

my $average = $total /@colval; 

print "Average CPU Time for Column for all servers in cpuatest.dat file is $average \n"; 
  }     ## End of initial $index for loop 

close $CPUFILE or die;