foreach my $solution ( ... ) {
    foreach my $test ( ... ) {
        ok( ... );
    }
}