Perl really needs a filter function. Then I'd use it with grep:

    use filter;
    @m_h= filter { s/tw/tr/g } grep /^t/i, @foo;

# or, if you don't like prototypes:
    @m_h= filter( sub { s/tw/tr/g }, grep /^t/i, @foo );
[download]

                - tye