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