Select Code to Download

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

@array or print "array empty\n";

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