$total = 0;
    $count = 0;
 for ($j = 2; $j < @tableb; $j++) {
        chomp ($tableb[$j]);
        ($netsta,$delay_time) = (split /\s+/,$tableb[$j])[1,9];
        ($net,$sta) = (split /\./, $netsta)[0,1];
        if ($net eq "ZJ") {
            $count = $count + 1;
            $total = $total + $delay_time;
            $mean = $total/$count;
            print $mean, "\n";
        }