【Perl 】初心者コーナーPart5

下記はやっぱりb案の方が利口でしょうか？

@a = ("11-22-33","22-33-44","55-66-77","88-99-00","22-44-55");
#a案
foreach(0..$#a) {
(@split) = split(/\-/,$a[$_]);
if($split[0] eq '88'){ print $a[$_]."\n"; }
}
#b案
for(@a){
(@split) = split(/\-/);
if($split[0] eq '88'){ print $_."\n"; }
}