sub good { my @a = qw/zero one two/; @a } sub bad { qw/foo bar baz/ } say scalar good(), "\t<== what I want"; say scalar bad(), "\t<== not"; __END__ Output: 3 <== what I want baz <== not