$hash3 = map { $_ => [ $hash1{$_}, $hash2{$_} ] } keys(%hash1); 

##</code><code>##

/****************************/
  jason@gost.net, wh@ckz.org
    http://jason.gost.net
/*****************************/