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

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

my $x = x;

warn $x;

my $z = z;

warn $z;




##</code><code>##


sub x {

  ($new_val, $new_val2, $old_value_returned_when_called_in_scalar_context);