use strict;
use warnings;

open INPUT1, "<", "x.pl";
my @words1 = <INPUT1>;
print "<$_>\n" for @words1;

__END__
<use strict;
>
<use warnings;
>
<
>
<open INPUT1, "<", "x.pl";
>
<my @words1 = <INPUT1>;
>
<print "<$_>\n" for @words1;>