$VAR1 = 'mode';
$VAR2 = {
          'type' => ' auto mode',
          'action' => ' completed on own.'
        };

##</code><code>##

 for(sort keys %component)
    {
        print "$_,$component{$_}{type},$component{$_}{action}\n";
       }

##</code><code>##

$VAR1 = 'mode'
$VAR2 = {
          'switch1' => {
                            'type' => ' auto mode for switch1',
                            'action' => ' completed with assistance.'
                          },
          'switch2' => {
                        'type' => ' auto mode for switch2',
                        'action' => 'completed on own.'
                      },
          'switch3' => {
                          'type' => ' auto mode for switch3'
                          'action' => ' rasied alarm, incident reported.',
                        },
          'switch4' => {
                              'type' => ' manual mode for switch4',
                              'action' => ' complete process manually