A few points, if you know how to test whether something is in the range, you know how to test whether something is outside of the range. Either you are inside, or outside. So to test whether something is outside of the range, just test whether it's not inside the range.

Also, if you are doing numerical compares, you should use the numerical comparison operators: <, <=, ==, >=, > and <=>. gt and lt and friends are for alphabetic compares.

Abigail

Uh, you could use the numerical comparison... why are you using the ASCII comparison?

I think that there are some conceptual problems here that the following code might help:

my @number = ();
for (my $i = 0; $i < @column_1; $i++) {
  if (($column_1[$i] >= 8 && $column_1[$i] <= 52) && 
      ($column_2[$i] >= 98 && $column_2[$i] <= 202)) {
        push @number, join(' ', $column_1[$i], $column_2[$i]);
  }
}

foreach (@number) { print $_ . "\n"; }
[download]

If you're looking for something more subtle where the fuzziness of the match is unclear then you'd have to improve this approach substantially.

HTH

#!/usr/bin/perl -w
use strict;

# sample data
my @column_1 = qw(13 14 10 34 73 64 48 52  51 74 8 85 36 74 34 53 9 86
+ 59 15 25);
my @column_2 = qw(3  74 98 185 36 74 34 201 99 86 59 15 25 123 134 16 
+202 73 64 48 52);

# "good" numbers
my %col_1_good = map { $_, 1 } (11..49);
my %col_2_good = map { $_, 1 } (101..199);

# "fair" numbers
my %col_1_fair = map { $_, 1 } (8..10, 50..52);
my %col_2_fair = map { $_, 1 } (98..100, 200..202);

my @good_pairs = ();
my @fair_pairs = ();

for my $i (0..$#column_1) {
    if ( $col_1_good { $column_1[$i] } && $col_2_good { $column_2[$i] 
+} ) {
        push @good_pairs, "$column_1[$i] $column_2[$i]";
    }
    elsif ( $col_1_fair { $column_1[$i] } && $col_2_fair { $column_2[$
+i] } ) {
        push @fair_pairs, "$column_1[$i] $column_2[$i]";
    }
}
print join "\n", "Good Numbers:", @good_pairs, "\nFair Numbers:", @fai
+r_pairs;
[download]

cLive ;-)