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