use strict;
use warnings;

sub between {
   my ($min, $val, $max) = @_;
   return $val>=$min && $val<=$max;
}

for my $range (450, 475, 500, 550, 450, 350, 250, 100) {
    print "Range: $range\n";
    if (between(300, $range, 400)) {
        exit;
    }
    if (between(425, $range, 500)) {
        print "LIGHTS ON\n";
    }
}