$count = @lines = <DATA>;
print @lines[rand($count)];