Select Code to Download

#!/usr/bin/perl
use strict;
...
        push @solution, [[@{$work->[0]}, $first], $work->[1] + 1, 1] i
+f ! $work->[2] && ! $found;
    }
}