c:\@Work\Perl\monks>perl -wMstrict -le
"use Data::Dumper;
 ;;
 our %S = (
   game => {
     'jetfighter4' => {
       key   => 'M3pL73',
       label => 'JetFighter IV: Fortress America',
       },
     'projectigi2r' => {
       key   => 'j4F9cY',
       label => 'IGI2: Covert Strike',
       port  => 26001,
       },
     },
   );
 ;;
 print Dumper \%S;
 ;;
 print Dumper $S{ 'game' }{ 'jetfighter4' };
 ;;
 print $S{ 'game' }{ 'jetfighter4' }{ 'label' };
"
$VAR1 = {
          'game' => {
                      'projectigi2r' => {
                                          'label' => 'IGI2: Covert Strike',
                                          'port' => 26001,
                                          'key' => 'j4F9cY'
                                        },
                      'jetfighter4' => {
                                         'label' => 'JetFighter IV: Fortress America',
                                         'key' => 'M3pL73'
                                       }
                    }
        };

$VAR1 = {
          'label' => 'JetFighter IV: Fortress America',
          'key' => 'M3pL73'
        };

JetFighter IV: Fortress America