Select Code to Download

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

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