Select Code to Download

@hash{@range} = (1) x @range;  #guess I don't need to replicate now.
delete @hash{@ports};
@open = sort {$a <=> $b} keys %hash; 
#seems to work