Use of uninitialized value $line in scalar chomp at - line 2, <> line 2. BANG!