my @new;
( $new[ @new ] = $_ ) =~ s[$][,hi] while <DATA>;