<>; while(<>){ $s=0; %t={}; @a=map$t{$_},grep!$t{$_}++,glob<>; if(@a>2) { while($a[2]>0) { @a=sort{$b-$a}@a; $s++; $a[$_]--for 0..2; @a=sort{$b-$a}@a; } } print$s,$/ }