my @lines=<IN>;
# or
while (my $line=<IN>) { # ...