my ($success, $fail) = (0, 0);

for my $i (0 .. @f / 2) {
    if (($f[1 + $i * 2] || 0) == 1) {
        $success = 1 if ($f[$i * 2 + 2] || 0) == 1;
        $fail    = 1 if ($f[$i * 2 + 2] || 0) == 2;
    }
}