sub range {
    my @t = split /\.\./, $_[0];
    return ($t[0], $t[1]);
}