Select Code to Download

$output{$mode}{category}
$output{$mode}{division}
...
$output{$mode}{tis}
$output{$mode}{customer}
$output{$mode}{worker}

 for(sort keys %output)
    {
    print "$_,$output{$_}{category},$output{$_}{division},$output{$_}{
+priority},$output{$_}{resolved},$output{$_}{current},$output{$_}{tis}
+,$output{$_}{customer},$output{$_}{worker}\n";
    }

 while (m<CURRENT=(\S+)>gx)
            {
...
                $output{$mode}{current} = join("\n",@{$cfg{$mode}{curr
+ent}});
            }

$VAR1 = {
          'AUTO' => {
...
                                  }
        };

AUTO,Shelf,deployment,3,YES,CLOSED2/1,200,NO,YES
AUTO,Shelf,deployment,3,YES,CLOSED2/2,300,NO,YES
AUTO,Shelf,deployment,3,YES,CLOSED2/3,400,NO,YES
AUTO,Shelf,deployment,3,YES,CLOSED2/4,200,NO,YES