Select Code to Download

        }
      }
    }
  }
};

my @ports = (
             {
...
              ...
             }
            );

my @open_ports = grep {$_->{state} eq "open"} @ports;