Select Code to Download

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

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