#!/usr/bin/perl -w
use strict;

my @array = qw( Bob Carol Mike Katie );

if( @array ) {
  print "\@array is not empty!\n";
}

else {
  print "\@array is empty!\n";
}

##</code><code>##

#!/usr/bin/perl -w
use strict;

my @array = qw( Bob Carol Mike Katie );

# Delete the contents of the array.
@array = ();

if( @array ) {
  print "\@array is not empty!\n";
}

else {
  print "\@array is empty!\n";
}