Help for this page

Select Code to Download

Select or download this

 %hash1 = ( 1=> ["You", "Me", "Him", "Her"], 2 => ["You", "Me", "Him",
+ "Her"], 3 => ["You", "Me", "Him", "Her"], and so on).
%hash2 = ( 1 => 3, 51 => 0, 32 => 1, and so on)

Select or download this

 foreach my $keys (keys %hash1){
              if (defined $hash2{$keys}){
                 print @{ $hash1{$keys} }, "\t", $hash2{$keys}, "\n";