perl -wle'
sub test {
  my $context = wantarray()
    ? "list context"
    : defined wantarray()
    ? "scalar context"
    : "void context";
  print $context;
}
my @x = test;
my $x = test;
test;'
list context
scalar context
void context