$ perl xml.pl
$VAR1 = {
          'columnname' => [
                          'DATE extract',
                          'DATE_deleted',
                          'DATE1',
                          'DATE2'
                        ]
        };