#!/usr/bin/perl

use strict;
use warnings;

my $string1 = 'abcdef';
my $string2 = 'efghijk';
my %seen = map $_ => 1, split //, $string1;
my $merged = $string1;
not $seen{$_} and $merged .= $_ for split //, $string2;