use strict;
use warnings;

my $file1 = <<FILE;
apple
goat
chocolate
newyork
FILE

open IN, '<', \$file1;
my @lines = <IN>;
close IN;

chomp @lines;
print "@lines1\n";

##</code><code>##

apple goat chocolate newyork