use strict;
my @list = qw( this that foo bar );
print join ' ', mungeIt( @list );

sub mungeIt {
    my @localList = @_;
    my @stuff = map { s/th/h/ ? $_ : () } @localList;
}