sub array_to_string {
  my ($switch, @array) = @_;
  my $string = join($switch, @array);
  ...
}