my @hash{@ports} = (1) x @ports; #set indices to true for ports in use
my $open_port;
foreach my $port (@range){
   $open_port = $port and last unless $hash{$port};
}