perl -pe'($x,@y,$a)=split;$a+=$_ for@y;$_=(2*$x*$y[0]>$a?Pass:Fail).$/'