my $what = (if(1){print "true"}else{print "false"});

sub foo
{
    return (for (1..3) { print $_ });
}