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

##</code><code>##

>perl -wMstrict -le
"use Data::Dumper;
 ;;
 my %component = (
   'mode' => {
     'type'   => ' auto mode',
     'action' => ' completed on own.',
     },
   'mood' => {
     'switch1' => {
       'type'   => ' auto mode for switch1',
       'action' => ' completed with assistance.',
       },
     'switch2' => {
       'type'   => ' auto mode for switch2',
       'action' => 'completed on own.',
       },
     },
   );
 ;;
 print Dumper \%component;
"
$VAR1 = {
          'mode' => {
                      'action' => ' completed on own.',
                      'type' => ' auto mode'
                    },
          'mood' => {
                      'switch2' => {
                                     'action' => 'completed on own.',
                                     'type' => ' auto mode for switch2'
                                   },
                      'switch1' => {
                                     'action' => ' completed with assistance.',
                                     'type' => ' auto mode for switch1'
                                   }
                    }
        };