my $s = f();
my @a = f();