say (3,2,4)[$_%2+$_%%5]for lines