perl多处匹配用given when?还是用其他的方法啊?

如有文本 处理后的结果为; 就是提取aa到bb,cc到dd,ee到ff的行,用given when这语句????
若文本较大.given when效率怎么样??

while (<DATA>) {
    chomp;
    given ($_) {
        when (/^aa$/ .. /^bb$/) { push @a, $_ }
        when (/^cc$/ .. /^dd$/) { push @c, $_ }
    }
}