open my $fh, '<', $file or die "could not open file";

##</code><code>##

@array or print "array empty\n";

##</code><code>##

@array=undef;
@array or print "array empty\n";