use strict;
our %H;   #  have to create the global or local complains
sub foo {
      my $Href = shift;
      local (%H);  # instead of my use local
      *H = $Href;   # define the alias  
      print $H{1};
}