my $foo = (tuwas(), tu_nochwas(), 23); # $foo = 23
sub boo {
  return 2,3,4;
}
my $far = boo(); # 4
my @bar = boo(); # 2,3,4