my @lines;
push @lines, scalar <$file> for 1..10;