my %hash;
for $var (@array) {
  while (<STDIN>) {
    chomp;
    $hash{$_} = $var;
  }
}