#!/usr/bin/perl

use strict;
use warnings;

my %hash=(
    rat=> [ "acggghhh", "fhhfjfjj", "dggdgdgdg" ],
    mat=> [ "dhhdhdhdh" ]
);

foreach my $key (keys %hash) {
    print $key, "=", @{ $hash{$key} }, "\n";
}
[download]

PerlMonks lovingly hand-crafted by Tim Vroom.
PerlMonks went on a couple dates, and then decided to shack up with The Perl Foundation.
Marvelous Managed Hosting and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.