my @array = ( 1, "word", 2 );
my $print_string = join ('|', @array);
print "$print_string\n";