my %parameterhash;
 my $hashref = \%parameterhash;
 a($hashref);
 b($hashref);
sub a{
 my $hash_ref = @_;
 my $dbconnection= makeDBconnection();
 my $handle = \$dbconnection;
 connect($handle);
 $hash_ref->{dbhandle} = $handle;
}

sub b{
 my $hash_ref = @_;
 my $hand = $hash_ref->{dbhandle};
 connect($hand);
}