Select Code to Download

#!/usr/bin/perl
use warnings;
use strict;
...
    return (\%c_hash, @tmpArr);

}

_OUTPUT_
$VAR1 = {
          'section' => {
...
                         'secnum' => '11'
                       }
        };