sub returnhash {
    my %hash1 = (1 => 3);
    my %hash2 = (2 => 5);
    return \%hash1, \%hash2;
}

my ($ref1, $ref2) = returnhash();
print $ref1->{1};    # Element "1" aus dem ersten Hash
print $ref2->{2};    # Element "2" aus dem zweiten Hash