@lines = map {eof($file) ? () : scalar <$file>}, 1..10;