@hash{@array}=@array2;
foreach $v (@array) {
  print $hash{$v};
}