local $.;		# make sure you're in a restrictive block
while ($. < 10) {
	push @lines, scalar <IN>;
	last if eof(IN);
}