### x, y, width, height ###
@box = qw(0, 0, 30, 30);

@find = qw(10, 5);

if (($find[0] > $box[0] && $find[0] < $box[0] + $box[2]) && ($find[1] > $box[1] && $find[1] < $box[1] + $box[3])) {
	print "It's in the box!";
}