my %userHash; $userHash{$thisUID}{'name'} = 'Some Charming User'; $userHash{$thisUID}{'alias'} = 'some.charming.user'; my %args = (users => %userHash, domains => %domainHash, path => $path); #### doSomethingUseful(\%args); sub doSomethingUseful { my $params = shift; my %args = %$params; my %users = $args{users}; my %domains = $args{domains}; my $path = $args{path}; if (keys %users > 1) { print("I was hoping you'd say that."); } }