$ perl -MData::Dumper -e 'sub x{1 for 1..5};@y=x();print Dumper(\@y)'
$VAR1 = [
          ''
        ];