my $mean;
my $total = 0;
my $count = 0;
for ($j = 2; $j < @tableb; $j++) {
  # do other calcuations
  if(this_line_matches()){
    $mean = $title/$count;  # use $mean from outside the loop
  }
}
print $mean; # now contains the last value calculated inside the loop