use strict;
use warnings;

my %modHash = qw (Ford Mundaneo Honda Civet Rolls Rice);
my $pdtName = 'Fred Bloggs';

getHash(pdtName => $pdtName, modHash => \%modHash);

sub getHash{
    my %params = @_;
    
    my $pdtName= $params{pdtName};
    my $moduleHashref= $params{modHash};
    
    while (my ($key, $value) = each(%$moduleHashref)){             
        print "key: $key, Value: $value\n";             
    }
}