my @m_h = map {s/tw/tr/g;$_} @foo;