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

##</code><code>##

$VAR1 = [
          1,
          'word',
          2
        ];
$VAR1 = 'ARRAY(0x8153c28)';