Select Code to Download

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

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