Select Code to Download

use warnings;
use strict;
...
};
    print "$things\n";

use warnings;
use strict;
...
foreach my $things (@arr2) {
    print "$things\n";
};