{foreach $port (@{$ref{$key}{'port'}})

##</code><code>##

for my $port (keys %ref){
  my $host = $ref{$port};
  # Process the $host/$port combo
  ...