Select Code to Download

use strict;

...

   print join("\n", @$array), "\n";
}

# this is not really correct:
my @array = [0,1,2,3,4,5];
...

# or this:
my @array = (0,1,2,3,4,5);