while (my $line = <>){