<>?@$_=sort{$a-$b}glob<>:${0while$z[++$#$_]=($m)=grep$_>$m,@{$|--};$|=1}for 0..3;print$#z