while (my $line = <File1>)