Select Code to Download

sub good { my @a = qw/zero one two/; @a }
sub bad  { qw/foo bar baz/ }

...
Output:
3        <== what I want
baz      <== not

{
    my @temp = bad();
    say scalar @temp;
}