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