#!perl -w
use strict;
use Data::Dumper;

sub test {
    my %hash = ( a => 1,
                 b => 2,
                 c => 3, );
    return %hash;
}

my %got_this = &test;

print Dumper( \%got_this );