#!/usr/bin/perl -wl
my @x = qw[ a b c d ];

sub x { 
  print 
   wantarray ? "list context" :
   defined(wantarray) ? "scalar context" 
   : "void context"; 
  @x 
}

print "@{[ x() ]} - ${\ ( x() )} - ${\ ( @x )}";
__END__
list context
list context
a b c d - d - d