How to pass two hashes to a sub

[Tomasi, Chuck]

Perl 5.6.0
Sun Solaris 2.7

I'd like to send two or more associative arrays (hashes) to a sub.  It looks
like the first one makes it but the values of the second never get passed.
Am I doing something wrong or is there a better way to do this (I'm hoping
you don't say by reference or I'll have to setup a lot of temporary hashes
to pass one or two key/value pairs on second, third, and fourth args)

--------------Code----------------------
#/usr/local/bin/perl -w

use strict;

sub phash
{
        my      (%hash1, %hash2) = @_;

        print "val1 = $hash1{'val1'}\n";
        print "val2 = $hash2{'val2'}\n";
}

my %h1 = ( val1 => 56 );
my %h2 = ( val2 => 45 );

&phash(%h1, %h2);
----------------output--------------------
$ perl mhash.pl
val1 = 56
val2 =

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]