use strict;
my @array = ();

print "Array is empty\n" if ( ! @array );