Nope. One slot in a hash holds one scalar value.

The trick is to use a scalar value that can hold more than one value instead. See perldsc and perlreftut.

No, but you can make the one value for a key be a reference to an array which contains multiple values.

$h{key} = [ 'value1', 'value2' ];
push @{ $h{key} }, 'value3', 'value4';
# $h{key}->[2] eq 'value3'
# ${ $h{key} }[3] eq 'value4'
[download]

If you're not familiar with array references, see perlreftut for a start.

You can also make the one value for a key be a string that encodes all the various values (e.g., CSV or Data::Dumper output, etc.)

How about using a reference to an array. Here's a little ditty that builds the kind of hash for which you're looking and then prints out the results:

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

my %hash;
my $key;
my $value;

my @data = ("foo",1, "bar",2, "foo",3, "baz",4);

while ($key = shift (@data))
{
   $value   = shift (@data);

   # push the value on the array
   push @{$hash{$key}}, $value;
}

print Dumper \%hash;
[download]

Note: you have to create the anonymous reference -- you can't just push a value if the key doesn't exist.

Update: apparently you can just push the value.

Note: you have to create the anonymous reference -- you can't just push a value if the key doesn't exist.

In perl you can ;-)

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

my %hash;
push @{$hash{key}}, 'value';
print Dumper \%hash;
__END__
$VAR1 = {
          'key' => [
                     'value'
                   ]
        };
[download]

This nice feature is called "autovivification" and is quite useful most of the time.

Son of a gun! You can just push the value. I could have sworn that this didn't work when I tried it at my old job (about 2 years ago). Is this a feature that has happened since then or have I been brain dead all this time?

Thanks, moritz; ++

--
Wade

Just dereference the array in a scalar context:

#! perl
use strict;
use warnings;

my %families = (Flintstone => [ qw(Pebbles)                    ],
                Simpson    => [ qw(Bart Lisa Maggie)           ],
                Keaton     => [ qw(Alex Mallory Jennifer Andy) ]);

for my $name (keys %families)
{
    my  $num_children = @{ $families{$name} };   # <-- Here's where it
+ happens

    if ($num_children == 1)
    {
        print "There is $num_children child in the $name family\n";
    }
    else
    {
        print "There are $num_children children in the $name family\n"
+;
    }
}
[download]

Hope that helps,

Athanasius <°(((>< contra mundum