Select Code to Download

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

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