my @myarray;
while (my $item = <DATA>) {
  chomp $item;
  push @myarray, $item;
}

##</code><code>##

my @myarray = map { chomp; $_ } <DATA>;