Select Code to Download

#!/usr/bin/perl -wl
use strict;
...
        length() < $min ? () : $_, map $_.$n, @$first;
    } work($min-1, @_);
}

sub generate {
    my $min = shift;
...
    return @current;
}