sub empty_list {
  return @{ [] }
}

my @y=(empty_list())[0];
my $x = (empty_list())[0];
use Data::Dumper;print Dumper \$x,\@y;

##</code><code>##

my @y=(empty_list())[0];  # @y = ();
my $x = (empty_list())[0];  # $x = undef;

my %x = (foo=>$x);
my %xx = (foo=>@y);

##</code><code>##

my %x=(foo=>scalar((empty_list1())[0]));