my $a;
my @b = @$a;

##</code><code>##

my $a;
foreach (@$a) {
  print "$_\n";
}