while (my $line = <FILE>) {

##</code><code>##

my $file = scalar(@_);