$data[23] =~ s/-/\.\./; # convert - to .. perl syntax
       ^^^^^
       ...
       push(@range,eval $array[23]); # i expanded here
                        ^^^^^^

##</code><code>##

       $data[23] =~ s/-/\.\./g;