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