my @li = qw(foo bar baz boo);
foreach my $el(@li){
    if($el eq 'boo'){ $el = 'tagged'} # irgendeine Bedingung
}