#!/usr/bin/env perl                                                   
+                                            

use strict;
use warnings;
use Data::Dumper;

my $karl;

$karl->{nose} = qq(cuke);

$karl->{monk} = 1;

$karl->{axes} = ["Strat", "Ibanez"];

$karl->{pets} = ["Dog", "Fishes"];

$karl->{skills} = ["C", "Perl", "Ecma", "NULL"];

print Dumper($karl);

__END__

Karls-Mac-mini:monks karl$ ./karl.pl                                  
+                                          
    $VAR1 = {                                                         
+                                            
          'skills' => [                                               
+                                            
                        'C',                                          
+                                            
                        'Perl',                                       
+                                            
                        'Ecma',                                       
+                                            
                        'NULL'                                        
+                                            
                      ],                                              
+                                            
          'pets' => [                                                 
+                                            
                      'Dog',                                          
+                                            
                      'Fishes'                                        
+                                            
                    ],                                                
+                                            
          'nose' => 'cuke',                                           
+                                            
          'monk' => 1,                                                
+                                            
          'axes' => [                                                 
+                                            
                      'Strat',                                        
+                                            
                      'Ibanez'                                        
+                                            
                    ]                                                 
+                                            
        };
[download]