What would you have done?

I wouldn't write this  $liststr ( $ports[1], $ports[2] )

I'd write this instead  find => [ map { "port = $_ " } $config =~ m{(\d+)}g ],

Why? I don't see any benefit to introduce two vars and a set of "magic numbers" (yes misusing the term I know)

Also, I'd never let  desc => "# Test 1", remain, testing modules number tests , humans should name them , so "find the ports" or "find four ports" or "find four farts"

FWiW, I've heard of "Always leave the campground cleaner than you found it" but AFAIK its not a Boy Scouts rule