#! /usr/bin/perl

use strict ;
use Data::Dumper ;

my %conf = ( DB_NAME => 'DB01' ) ;

pass_by_reference( \%conf ) ;

print Dumper( \%conf ) ;

sub pass_by_reference
{
    my $conf = shift ;
    $conf->{DB_NAME} = 'DB03' ;
}