$_ ne "DontPrintMe" and print for @Array;

##</code><code>##

for (@Array) {
   next if $_ eq "DontPrintMe";
   print;
}

##</code><code>##

for (my $i = 0; $i < @Array; ++$i) {
   print $Array[$i] unless $Array[$i] eq "DontPrintMe";
}