Select Code to Download

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

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

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

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