my $hRef = shift;
my $hRef = $_[0];

##</code><code>##

my ($hRef) = @_;