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