($a+=$_)&&++$r>5&&die,print for<>