Help for this page

Select Code to Download


  1. or download this
    while( my( $key1, $val1 ) = each( %hash1 ) ) {
        my( $key2, $val2 ) = each( %hash2 );
        # do something with $key1, $key2, $val1, and $val2
    }
    
  2. or download this
    while( my( $key, $val1 ) = each( %hash1 ) ) {
        my( $val2 ) = $hash2{$key};
        # Do something with $key, and $val1, $val2.
    }