m @array = grep length, <$fh>;