use strict;
use warnings;
use Data::Dumper;

sub PopulateHash {
	my $hashParm = shift;
	%$hashParm = ( 
				1 => 'a',
				2 => 'b',
				3 => 'c',
				4 => 'd');
	print Dumper(\%$hashParm);
}

my %hash = ();
PopulateHash(\%hash);
print Dumper(\%hash);