Use of uninitialized value in pattern match (m//) at ./perlscript_for.pl line 35, <$fh> line 2.
Use of uninitialized value in pattern match (m//) at ./perlscript_for.pl line 37, <$fh> line 2.
Use of uninitialized value in hash element at ./perlscript_for.pl line 39, <$fh> line 2.
Use of uninitialized value in hash element at ./perlscript_for.pl line 39, <$fh> line 2.
$VAR1 = {
          '' => {
                  '' => undef
                }
        };