Help for this page
my %newbase = ( %oldhash, %newhash );
sub prunecheck { my ( $var1, $var2 ) = @_; ... } prunecheck(\%newbase, \%newhash);