if (grep {$_ eq $where} @array) {
  push @result_array, $hash{$where};
} else {
  push @result_array, $where;
}