這樣呢 完全不看@a的index
for my $a (@a) {
$good = 0;
if ( $a 滿足某條件 ) {
++$counter;
if ($counter == 5) {
$good = 1;
}
}
}

這樣你不知道滿足 $counter = 5 時的 $a 是不是最後一筆

對 但是如果不是 $good又會被設回0

對耶，推(Y)

覺得這樣會比較不好讀耶 @@" 因為 $good 在那邊彈跳的過程不太可能和口語講出來的 rule 一致嗯... 或是也許你有別的, 也是很自然的口語講法? @@"

確實是不好讀 我得承認 XD

You're literally thinking out of the box :)

此系列釣出很多高手 我都看不懂 orz