Select Code to Download

use warnings;
use strict;
...
        print "name=$name, lo1=$lo1, hi1=$hi1; lo2=$lo2, hi2=$hi2\n";
    }
}

name=a, lo1=11, hi1=23; lo2=33, hi2=39
name=a, lo1=11, hi1=23; lo2=40, hi2=42
...
name=d, lo1=48, hi1=58; lo2=40, hi2=42
name=d, lo1=48, hi1=58; lo2=43, hi2=46
name=d, lo1=48, hi1=58; lo2=51, hi2=52