use strict;
use warnings;

my @array = undef;
if (@array eq undef) { print };
if (@array ne undef) { print };
foreach (@array) { print; }
map { print } @array;