use strict;

sub foo {
      my $Href = shift;
      our %H; local *H = $Href;   # define the alias  
      print $H{1};
}