$output{$mode}{category}
$output{$mode}{division}
$output{$mode}{priority}
$output{$mode}{resolved}
$output{$mode}{current}
$output{$mode}{tis}
$output{$mode}{customer}
$output{$mode}{worker}

##</code><code>##

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

##</code><code>##

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


##</code><code>##

$VAR1 = {
          'AUTO' => {
                                    'category' => 'Shelf',
                                    'division' => 'deployment',
                                    'priority' => '3',
                                    'resolved' => 'YES',
                                    'current' => 'CLOSED2/1
CLOSED2/2
CLOSED2/3
CLOSED2/4',
			'tis' => '200
300
400
200',
			'customer' => 'NO',
                                    'worker' => 'YES',
                                    
                                  }
        };


##</code><code>##

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