#!/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];