my $set = $delim . join($delim, keys %set) . $delim;

##</code><code>##

my $set = join( $delim, "", keys %set, "" );