my %hash = ( key => 'value');
  
  my $k_ref = \$hash{key} ;
  *{'main::val'} = $k_ref ;
  
  my @array = (0..5) ;

  print "val: <$val>\n" ;
  print "key: <$hash{key}>\n" ;

  
  foreach $val ( @array ) {
    print "for>> val: <$val>\n" ;
    print "for>> key: <$hash{key}>\n" ;
  }

  print "val: <$val>\n" ;
  print "key: <$hash{key}>\n" ;