Select Code to Download

my $row_sum;
@f = grep { $_ } @f;
$row_sum += $_
  for @f;
print "Row average = ", $row_sum / @f, "\n";

AAA01,0,0,0,0,0,1
AAA02,0,0,0,0,1,2

Row average = 1
Row average = 1.5