Hi Jean,

Try out the following. It should work

#! /usr/bin/perl

use strict;
use warnings;

sub display
{
        my $ref = shift;
        foreach my $key (sort keys %{$ref})
        {
                print "$key = [";
                foreach my $key1 (@{$ref->{$key}})
                {
                        print "$key1,";
                }
        print "]\n";
        }
}

my %hash1;

$hash1{'frog'} = ['jumps','swims','slimy'];
$hash1{'dog'}  = ['barks','swims','hairy'];

display(\%hash1);
[download]

As someone had mentioned the module "Data Dumper" is really helpful. Even i am still learning and its really fun playing around with these references and derefences until you figure out what is happening. :)
Hope it helped