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