my $line = ; chomp $line;