Thanks all for the suggestions; thanks also to the Monks in Chatterbox who explained what the @$#! this line says:

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

I was glad to learn that trick and also to think more about Tie::File.