while (my $file = <FILE>) {