ん？オレならこうするが

@foo = (1..60);
$bar = join '~', @foo;
$bar =~ s/~([^~]*)~/+$1-/g;
$bar =~ s/~/+/;
print $bar;