while((my $line = <>)) {