Select Code to Download

use warnings;
use strict;
...

print "$_\n" for @array;
print "$array_reference->[0]\n";