#!/usr/bin/perl -w
sub deRef()
{
        ($ref) = @_;
	print "ref: $ref\n";
        my $line;
        my $key;
        foreach $key (keys %{$ref}) {
                $line = "$key: $ref->{$key} ";
        }
}

%dict = ( "kaka" => "pipi" );
%dict = NULL;
print "dict: "; print %dict; print "\n";
$ref = \%dict;
print "ref: $ref\n";

&deRef($ref);