Select Code to Download

my @words   = qw( foo bar );
while (my $line = <DATA>) {
    chomp $line;
...
foo
bar
foo bar

use List::Util qw( first );
my @words   = qw( foo bar );
while (my $line = <DATA>) {
...
foo
bar
foo bar