for my $test (@testlist) {
    if (defined $tref->{$host}{$test}) {
        my $status = $tref->{$host}{$test}{status};
        my $duration = $tref->{$host}{$test}{dur};
        # debugging line
        if (!$tref->{$host}{$test}{status}) { print "$host=>$test\n";}

        # Some more processing here which is not relevent
    }
    else {
        print "\t<th>-</th>\n";
   }
}