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


##</code><code>##

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