Select Code to Download

Out of memory during ridiculously large request at 438502.pl line 17.

use strict;
use warnings;
...
        @$combo = @lengths;
    }
}

...
  DB<1> s
...
10
  DB<4> p join ":",@+
23:22:23

main::regex_sub(438502.pl:40):      print "Code doesn't get run after 
+once.\n";
  DB<1> s
...
5
  DB<2> p scalar @+
3