} elsif ($fieldsort eq 'r') {
my $i;
for ($i = 2; $i < @$ref; $i += 2) {
next L1 unless $val >= $ref->[$i] && $val <= $ref->[$i+1];
}
} elsif ($fieldsort eq 'a') {
} elsif ($fieldsort eq 'r') {
my $i;
for ($i = 2; $i < @$ref; $i += 2) {
next L1 unless $val >= $ref->[$i] && $val <= $ref->[$i+1];
}
} elsif ($fieldsort eq 'a') {