DB<9> @list = qw /wheels four/;

  DB<10> print Dumper $hash->{shift @list}{shift @list};
$VAR1 = {
          'car' => {
                     'plain' => {
                                  'sporty' => 'honda',
                                  'retro' => 'volkswagon'
                                },
                     'fancy' => {
                                  'silver' => 'maserati',
                                  'red' => 'ferrari'
                                }
                   },
          'truck' => {
                       'light' => {
                                    'chevy' => 'pickup'
                                  },
                       'utility' => {
                                      'city' => 'trash',
                                      'muni' => 'power',
                                      'us' => 'mail'
                                    }
                     }
        };

  DB<11>