in reply to getpwnam(@_) ???
It has a prototype that causes the argument to be evaluated in scalar context.
$ perl -E'say prototype("CORE::getpwnam")' $ [download]