use strict;
sub foo {
      my $Href = shift;
      my (%H);
      *H = $Href;   # define the alais  
      print $H{1};
}