Select Code to Download

use strict;
use warnings;

my @HappyArray = qw/ Perl Is Confusing Would Someone Please Help Me/;

foreach (@HappyArray) {
    print "$_\n";
}

print "$_\n" for @HappyArray;

use strict;
use warnings;
...
print "$_\n" for @HappyArray;

die "Done!";