sub arr2 { 
    my $res = $string;
    my @seen;
    $res =~ s/(.)/$seen[ord($1)]++ ? "" : $1/gse;
    return $res;
}