Select Code to Download

my $idx = $#array;
while ($idx--) {
    print "$array[$idx]\n";
}

my $output = '';
for my $elem (@array) {
...
}
$output .= "\n";
print $output;