use strict;
use warnings;
sub array_to_string {
    my ($switch, @array) = @_;
    my $string = join($switch, @array);
    print "string: '$string'\n";
}
array_to_string('foo');
__END__
Ausgabe:

string: ''