Select Code to Download

use warnings;
use strict;
...
for (@{ $x }){
    print "$_\n";
}

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

print ref $x;

ARRAY