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

print ref $x;