Shop::db_connect( \%conf ) ;


##</code><code>##

sub db_connect {
    my $conf = shift ;
    print "Print - ", $conf->{'db_database'},
          " - from the Shop package\n";
}

##</code><code>##

#! /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' ;
}