Select Code to Download

use strict;
use warnings;
...

my %conHash = @conArr;
print Data::Dumper->Dump([\@conArr, \%conHash], [qw{*conArr *conHash}]
+);

@conArr = (
            'article',
...
             'article' => 'art',
             'section' => 'sec'
           );