my ($hash_ref) = @_;

##</code><code>##

my $hash_ref = shift;

##</code><code>##

Not enough arguments for connect at C:\perm\dev\monk.pl line 15, near "$handle)"

##</code><code>##

Can't use string ("1") as a HASH ref while "strict refs" in use at C:\perm\dev\monk.pl line 16.

##</code><code>##

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