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

When I need to join and have the delimeter also at the beginning or ending or both, I use empty strings:

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

Just another way to do it.