#!perl -pla
($c=$'||<>)=~$"while($_=grep$c!~s/^$_\s//,@F)>49