sub x { 
    (); 
} 
 
@x = x(); 
 
use Data::Dumper; warn Dumper([\@x]); 

##</code><code>##

sub routine { return (); }
@x = routine();
print 0+@x;