#!/usr/bin/perl

use strict;
use warnings;

# es gab da einen Hash
my %hash;

# und dann das mir unbekannte setzen des Hashes:
push @{$hash{"key"}},"value";

# Ausgabe:
while(my ($key,$value) = each %hash ){print "$key => @$value\n";};