#!/usr/bin/perl

use strict;
use warnings;

sub context {
    print wantarray ? "LIST\n" : "SCALAR\n"
}

my @a = (context, context);
my $a = (context, context);

__END__
LIST
LIST
SCALAR
SCALAR