my @fruits = "Apple Banana Cherry Honeydew Watermelon" ;
      my $tmp_fruits = join ":", @fruits;
      say  "$tmp_fruits \n"; 

output:
Apple Banana Cherry Honeydew Watermelon