while(chomp (my $line = )){