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