sub is_too_large {
    my ($a, $b) = @_;
    return $a->get_width() > $b->get_width();
}