sub attempt2 {
#66+65=131
#23456789_123456789_123456789_123456789_123456789_123456789_123456789_
my%a;$-=(@_=sort{@$b<=>@$a}@_);$;=1;map$;*=@$_,@_;while($a=pop){$=
=0;for$a((@$a)x($;/@$a)){push@{$a{$=++}},$a}}grep$-==@$_,values%a
}