Use of uninitialized value in pattern match (m//) at ./ldap2csv.pl line 58, <$in> chunk 7882.

##</code><code>##

            $data{$key} =~ s/(^|$)/"/g if $data{$key} =~ /,/;

##</code><code>##

        $data{@header} = ();  # To label the data.

##</code><code>##

@data{@header} = ();  # To label the data.