# foo only has one element...
if (@foo == 1) {
   ...
}

##</code><code>##

my $num_elements=@foo;
if ($num_elements == 1) {
   ...
}

##</code><code>##

if ($foo[0] ne "" && $foo[1] eq "") {
   ...
}