D:\>perl -MData::Dumper -e "sub x{1 for 1..5};@y=x();print 'ha' if defined @y"
ha