Select Code to Download

  foreach $hash{key} (@array){
    ## The value of $hash{key} will be the $array[x] value.
    ## ...
  }

  my %hash = ( key => 'value');
...
  print "val: <$val>\n" ;
  print "key: <$hash{key}>\n" ;

  my %hash = ( key => 'value');
...
  print "val: <$val>\n" ;
  print "key: <$hash{key}>\n" ;

for>> val: <0>
for>> key: <value>
...
for>> val: <2>
for>> key: <value>
...

for>> val: <0>
for>> key: <0>
...
for>> val: <2>
for>> key: <2>
...

  my @array = (1..5) ;
  print "@array\n" ;
  foreach my $array_i ( @array ) { $array_i *= 10 ;}
  print "@array\n" ;

  my %hash = ( key => 'value');
  my @array = (0..5) ;
...
    print "for>> val: <$val>\n" ;
    print "for>> key: <$hash{key}>\n" ;
  }