my @mess_ids = qw(
MessID1
MessID2
MessID3
MessID4
);

for my $id (@mess_ids) {
 # und hier die Ersetzung
}