Perl快速检查重叠间隔？

#!/usr/bin/perl

use strict;
use warnings;

# 定义会议时间段
my @meetings = (
    { start => '2022-01-01 09:00', end => '2022-01-01 10:00' },
    { start => '2022-01-01 09:30', end => '2022-01-01 11:00' },
    { start => '2022-01-01 10:30', end => '2022-01-01 12:00' }
);

# 对会议时间段按开始时间进行排序
@meetings = sort { $a->{start} cmp $b->{start} } @meetings;

# 遍历会议时间段
for my $i (1..$#meetings) {
    my $current = $meetings[$i];
    my $previous = $meetings[$i-1];

    # 检查重叠情况
    if ($current->{start} lt $previous->{end}) {
        print "会议时间重叠：$previous->{start} - $previous->{end} 和 $current->{start} - $current->{end}\n";
    }
}

# 输出结果
print "检查完毕。\n";