#!/usr/bin/env perl
use strict;
use warnings;

# Build the functions
my @tests;
while (<DATA>) {
    my ($min, $max, $message) = split /\s+/, $_, 3;
    push @tests, make_test_function($min, $max, $message);
}

my $range = 0;
while ($range < 600) {
    print "Range: $range\n";
    for my $test (@tests) {
        $test->($range);
    }
    $range += int(100*rand);
}

sub make_test_function {
    my ($min, $max, $message) = @_;
    return sub {
        my $val = shift;
        print $message if $val >= $min and $val <= $max;
    }
}

__DATA__
100 350  In range A
200 500  In range B
300 400  In range C