$ perl -Mstrict -Mwarnings -le '
    my $info = {
        win => {
            t1 => { error => "missing arg" },
            t2 => { skipped => "no network" }
        },
        nix => {
            t1 => { error => "wrong type" },
            t2 => { success => 1 }
        }
    };

    my @errors;

    for my $os (values %$info) {
        for my $testcase (values %$os) {
            push @errors, values %$testcase
        }
    }

    print for @errors;
'
no network
missing arg
wrong type
1