#!/usr/bin/perl

use strict;
use warnings;

use feature qw/say/;

my @array = (1, 2, 4, 8, 16, 32, 64, 128);

foreach my $elem (@array)
{
    say \$elem; # this *doesn't* print a unique number for all iterations!

    $elem *= 2;
}

say join(', ', @array);

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

@array = qw/x y z/;

say join(', ', @array);

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

say \@array[0];

##</code><code>##

SCALAR(0x8153220)
SCALAR(0x8153360)
SCALAR(0x8153100)
SCALAR(0x817bcb8)
SCALAR(0x817bcc8)
SCALAR(0x818ea18)
SCALAR(0x81886d0)
SCALAR(0x8188fd0)
2, 4, 8, 16, 32, 64, 128, 256
SCALAR(0x8153220), SCALAR(0x8153360), SCALAR(0x8153100), SCALAR(0x817bcb8), SCALAR(0x817bcc8), SCALAR(0x818ea18), SCALAR(0x81886d0), SCALAR(0x8188fd0)
x, y, z
SCALAR(0x8153220), SCALAR(0x8153360), SCALAR(0x8153100)
SCALAR(0x8153220)

##</code><code>##

my $i = 123;

say $i . ' ' . \$i;

foreach $i (1 .. 3)
{
    say $i . ' ' . \$i;
}

say $i . ' ' . \$i;

##</code><code>##

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