my $count = @array;
$#array = $count*2 - 1;
for (1 .. $count) {
    push @array, $value if ($value = shift @array) !~ /^\#/
}