my @arr2=do {wantarray
          ? print("wantarray!\n")
          : defined wantarray
            ? print("wantarray defined but false\n")
            : print("wantarray undefined!\n");
          wantarray
            ? qw( ciao a tutti )
            : defined wantarray && "howdy!";
        };

##</code><code>##

my $sc2=wantarray
          ? print("wantarray!\n") && qw(ciao a tutti)
          : defined wantarray
            ? print("wantarray defined but false\n") && "howdy!"
            : print("wantarray undefined!\n");

##</code><code>##

sub wanttest {
  wantarray
    ? print("wantarray!\n")
    : defined wantarray
         ? print("wantarray defined but false\n")
         : print("wantarray undefined!\n");
  return wantarray
         ? qw( ciao a tutti )
         : defined wantarray && "howdy!";
}

wanttest();

my $sc=wanttest();
print "Returned $sc\n\n";

my @arr=wanttest();
print "Returned @arr \n\n";