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

##</code><code>##

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

##</code><code>##

@new = map { $_ . ',hi' } <TEST>;