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