#!perl -pa
$z='';$z.=$_-$F[0]?"$_ ":(shift@F,'  ')for 1..6;$_=@F?'POOR
':$z.'Do it!!
'