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