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