Code:

 #!/usr/bin/perl
 
 use strict;
 
 sub main {
 	my $hashRef;
 	
 	print "---print methodOne---\n";
 	$hashRef = methodOne();  showHash($hashRef); # run methodOne and print
 	print "---print methodTwo---\n";
 	$hashRef = methodTwo();  showHash($hashRef); # run methodTwo and print
 }
 
 sub methodOne {
 	my %hash = (
 		key1	=> "value1",
 		key2	=> "value2",
 	);
 	return \%hash;
 }
 
 sub methodTwo {
 	my $hashRef = {
 		key1	=> "value1",
 		key2	=> "value2",
 	};
 	return $hashRef;
 }
 
 sub showHash {
 	my $hashRef = shift;
 
 	foreach my $key (keys %$hashRef) {
 		print "$key is $hashRef->{$key}\n"; # the same as:
 		print "$key is $$hashRef{$key}\n";
 	}
 }
 
 main();
 
 __END__

Output: