@new = map { s/$/,hi/; $_ } <TEST>;