#!/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'                                                                                    
                    ]                                                                                             
        };