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