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