Select Code to Download

#!/usr/bin/perl
use List::Util qw(min max);
...
           }
   }
 }

62556    63635    y    1,andrew,JJ113954
...
445778    445905    0    7,catherine,JJ029490
446059    446273    l    6,catherine,JJ029490
450319    450379    f    5,catherine,JJ029490

62556    63635    y    single,andrew,JJ113954
63868    63897    h    1,morgan,JJ113955
...
445778    445905    0    7,catherine,JJ029490
446059    446273    l    6,catherine,JJ029490
450319    450379    f    5,catherine,JJ029490