[PERL] 한줄씩 읽어 문자조건을 만족할때 원하는 문자 출력하기

오랜만에 인사드리네요.

아무리 혼자 해도 답이 나오질 않아, 문제가 무엇인지 의견을 여쭙니다.

데이터 중간에 "tas ="이 나오면 야호를 입력하라는 것인데

숫자는 잘 인식하나, 문자로 하면 이상하게 원하는 결과가 나오질 않습니다.

혹시 무슨 문제 때문인지 아시나요?

실제로는 "tas =" 문자가 나온 이후로 데이터를 정리하며 출력하는 코드를 짤려고 하는데

테스트 코드가 진도가 안나가니, 다음으로 갈 수가 없습니다.

--------data ------------
1,1,1,1,1
2,2,2,2,2
tas =
1,1,1,1,1
2,2,2,2,2
2,2,2,2,3
2,2,2,2,4
2,2,2,2,5
------------------------

--------기대하는 결과---
1,1,1,1,1
2,2,2,2,2
야호
tas =
1,1,1,1,1
2,2,2,2,2
2,2,2,2,3
2,2,2,2,4
2,2,2,2,5
-------------------

 
use strict;
use warnings;
use 5.010;
 
my (%arr,@arr,$i);
open my $fh1, '<', 'test1.txt' or die $!;
 
while (<$fh1>){
@arr = split (/\,/);
if ($arr[0] eq "tas ="){
print "야호\n";
}
print join ",", @arr;
}