#!/usr/bin/perl

use warnings;
use strict;

 my %parameterhash;
 my $hashref = \%parameterhash;
 a($hashref);
 b($hashref);

sub a{
 my $hash_ref = shift;
 my $dbconnection= makeDBconnection();
 my $handle = \$dbconnection;
 my_connect($handle);             # line 15
 $hash_ref->{dbhandle} = $handle; # line 16
}

sub b{
 my $hash_ref = shift;
 my $hand = $hash_ref->{dbhandle};
 my_connect($hand);
}

sub my_connect {
}

sub makeDBconnection{
}