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