Select Code to Download

use Data::Dumper;

@array = 0 ... 9;
...
    $item = pop @array;
    print Dumper(\@array);
}