Select Code to Download

#!/usr/bin/perl

...
say join(', ', map(\$_, @array)); # ..surprisingly familiar too!

say \@array[0];

SCALAR(0x8153220)
SCALAR(0x8153360)
...
x, y, z
SCALAR(0x8153220), SCALAR(0x8153360), SCALAR(0x8153100)
SCALAR(0x8153220)

my $i = 123;

...
}

say $i . ' ' . \$i;

123 SCALAR(0x817bd18)
1 SCALAR(0x8153220)
2 SCALAR(0x8153220)
3 SCALAR(0x8153220)
123 SCALAR(0x817bd18)