All the Perl that's Practical to Extract and Report
There's just all sorts of things wrong with the following line of code. No bugs mind you, but it's a cognitive minefield.
if ( our $has_premium ne 'no' ) { ... }