Select Code to Download

my $config = <<'GROK';
ADD UDP_LISTENER ( 515 )
...
      find => [ 'port = 515', 'port = 616', 'port = 657', 'port = 987'
+ ],
   },
);

my $liststr = 'ADD UDP_LISTENER';
my @ports   = ( 515, 616, 657, 987 );
...
      find => [ map { "port = $_" } @ports ],
   },
);

my $value = [ $x => $y ] -> [ $y <= $x ];

my $value = $x < $y ? $x : $y;

use List::Util qw(min);
my $value = min( $x, $y );