sub foo {
  wantarray() ? 10 : 1;
}

print 'Scalar context: ';
print ''. foo();
print ', ';
print foo() . "\n";

print 'List context: ';
print "@{[foo()]}, ";
print "${\foo()}\n";

# outputs 
Scalar context: 1, 1
List context: 10, 10