rand($.) < 1 && ($haiku = $_) while <DATA>;