my ($l) = <$fh>;