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

##</code><code>##

for (0 .. $#array) {
    push @array, $value if ($value = shift @array) !~ /^\#/
}