use v5.10;
use strict;
use List::Util qw{sum};

my $product = shift || 72;

local our %u;
sub f {
  my @a = @_;
  @a = sort { $b <=> $a } (length($a[1]), length($a[0])/length($a[1]), $product/length($a[0]) );

  local $" = ", ";
  say "(@a)\t ".sum(@a) unless exists($u{"@a"});
  $u{"@a"} = undef;
}

say "SOL\t\tNUMBER";
my @a =  ('1'x$product) =~
         /^((1+)\2+)(\1+)$
                   (?{ f($1, $2, $3)
                    })
           (*FAIL)
         /x;