An alteration like this would do what you want:

my $found_port;
foreach my $line (@port_file) {
   if ($line =~ /^Port\s$port/) {
      $found_port = 1;
      $template{port_def} = $line;
   }
   next unless $found_port;
   last if $line =~ /^#----/;
   print $line;
}
[download]