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