#! perl -slw use strict; my @z = ( 1, 3, 27, 38 ); while( my ($x,$y) = split/,/, ) { # 1 2 # 1234567890123456789012345 print "YES!\n" if @z==grep$x>$_==$y>$_,@z; } __END__ 4, 5 0, -1 100, 100 10, 27 3, 27 3, 3