sub x {
  (1 , 2 , 7);
}

sub z {
  my @L = (1 , 2 , 7);
  @L
}

my $x = x;

warn $x;

my $z = z;

warn $z;