%hash = ('a' => 1, 'b' => 2);
$scalar = 'blue';
myfunc(\%hash, $scalar);

sub myfunc {
  my($hashref,$scalar) = @_;
  print $hashref->{'a'};
}