You can test whether an element has been defined with the sensibly named defined function, so one way might be something like:

for my $element (@a) {
  print $element if defined($element);
}
[download]