sub array-to-string($switch, *@array) { my $string = join $switch, @array; ... }