C:\test>perl -we"print scalar( sub{'fred', 'john', 'bill'}->() )"
bill