Help for this page

Select Code to Download

Select or download this

use Modern::Perl;

use Number::Range;
...
        }
    }
}

Select or download this

Alex: 3 44 absent 0 0 absent 0 0 
Alex: 124 175 absent 0 0 present 134 155 
Barry: 2 44 present 12 24 
...
Alex: 124 175 present 154 174 
Drew: 9 43 present 19 54 absent 0 0 
James: 6 45 present 29 45