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