#!/usr/local/bin/perl -w

use strict;

sub get_conf(\%);
my %cur_conf;

$cur_conf{test} = "test";

get_conf(\%cur_conf);
print "after: " . $cur_conf{test};

sub get_conf(\%) {

   my $href = @_;
   $href->{test} = "another test";
}