Very nice meditation!

Since I noticed some discuss their debug flag techniques, I tend to do either

my $DEBUG = 1; $DEBUG && print 'debugging mode';

or

my $DEBUG = 1; $DEBUG && do { print 'isn\'t'; print 'that something' }

in case of blocks.

Having $DEBUG in the start of the line immediately tells you there's debug related code coming through.