use warnings;
use strict;

my $x;

for (@{ $x }){
    print "$_\n";
}

##</code><code>##

my $x;
my @a = map $_, @{ $x };

print ref $x;

##</code><code>##

ARRAY