Select Code to Download

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

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