use Algorithm::RectanglesContainingDot;

my $alg = Algorithm::RectanglesContainingDot->new;

while(<>) {
  chomp;
  my ($rect_name, $x0, $y0, $x1, $y1) = split;
  $alg->add_rectangle($rect_name, $x0, $y0, $x1, $y1);
}

my @rect1 = $alg->find_rectangles_containing_dot(23.2, 42.5);
my @rect2 = $alg->find_rectangles_containing_dot(-12.4, 5.0);