Select Code to Download

my $var;

for $var (...) {
}

for my $var (...) {
}

use strict;
use warnings;
...
}

print "@array";