for (-$#array .. 0) {
    splice (@array,$_,1) if ($array[$_] =~ /^\#/)
}