#!perl
use strict;
use warnings;

my @lines;

for (qw/one two three/) {
   push @lines, $_;
   print "Found *** $_ *** $/";
}

print "Lines: ", join " - ", @lines;