C:\test>perl -MO=Deparse -e"print scalar( sub{'fred', 'john', 'bill'}->() )"
print scalar sub {
    'fred', 'john', 'bill';
}
->();
-e syntax OK