foreach my $line (<FILEIN>) {
...