Complex data structures-----scal

use Data::Dumper;
$gene=[

{
name=>'Jim',
location=>'US',
jobs=>'student'


}
,
'high',

['gene1','gene2','gene3','gene4','gene5']

];

print"Name is ",$$gene[0]{'name'},"\n";


print"The second element is ",$$gene[1],"\n";

print"The second element of third element is ",$$gene[2][2],"\n";

print Dumper($gene);

#############打印结果################

Name is Jim                                                    
The second element is high                                     
The second element of third element is gene3                   
$VAR1 = [                                                      
          {                                                    
            'name' => 'Jim',                                   
            'location' => 'US',                                
            'jobs' => 'student'                                
          },                                                   
          'high',                                              
          [                                                    
            'gene1',                                           
            'gene2',                                           
            'gene3',                                           
            'gene4',                                           
            'gene5'                                            
          ]                                                    
        ];