- or download this
#!/usr/bin/perl
...
say join(', ', map(\$_, @array)); # ..surprisingly familiar too!
say \@array[0];
- or download this
SCALAR(0x8153220)
SCALAR(0x8153360)
...
x, y, z
SCALAR(0x8153220), SCALAR(0x8153360), SCALAR(0x8153100)
SCALAR(0x8153220)
- or download this
my $i = 123;
...
}
say $i . ' ' . \$i;
- or download this
123 SCALAR(0x817bd18)
1 SCALAR(0x8153220)
2 SCALAR(0x8153220)
3 SCALAR(0x8153220)
123 SCALAR(0x817bd18)