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