@v = ([100, 200],[200, 300],[200, 100]);;
@r = grep{ $_->[0] < $_->[1] } @v;;

pp @r;;
([100, 200], [200, 300])