use strict;
use warnings;

my @input = "1,2,3,4,5";
my $string = join ":" , @input;
print "$string\n"; #output is "1,2,3,4,5"

my $string2 = join ":" , 1,2,3,4,5;
print "$string2"; #output is "1:2:3:4:5"