RangeCheck in Perl