while( <DATA> ) {
    my ( $low, $high ) = split;
    push @cp_ints, $low .. $high;
}