You could use the constant pragma but it is not really saving you anything.

$ seq 1 6 > lines
$ cat lines
1
2
3
4
5
6
$ perl -ne '
> use constant { I => 3, J => 5 };
> print if I .. J;' lines
3
4
5
$
[download]

I hope this is of interest.