foreach @a if $a
as
foreach(@a if $a)