sub empty_list {
  return @{ [] }
}

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