use strict;

# many lines of code here

assert($val < $var1, $message);

# many lines of code here

sub assert() {
   return unless $ENV{DEBUG};
   my ($result, $message) = @_;
   die $message unless $result;
}