> } elsif
> #($ch !~ /$a2/)
> {

ここの{がコメントアウトされていないのは、ここに書き込む時のミスなのですよね？

> if (($a2 eq 'Qw') && ($sts =~ /Dh/) && ($a2 eq 'Kt' ||$a2 eq 'Sw' ||$a2 eq 'Kn')) { $count++ };

$a2は1つ目以外すべて$a1です。（No.1389での指摘漏れです。）

というか、正常に動かないなら動かないで自分でデバッグしてください。
push(@msg, "\$a1=$a1");などを実行すればその時の変数の内容はわかるのですし。

▼関連発言
│
└◆1376:二刀流にならない [cosmos] 11/24 11:42
　├◆1379:Re:二刀流にならない [moon] 11/24 18:45
　│└◆1380:Re[2]:二刀流にならない [cosmos] 11/24 21:36
　│　└◆1383:Re[3]:二刀流にならない [moon] 11/25 01:19
　│　　├◆1384:Re[4]:二刀流にならない [moon] 11/25 01:28
　│　　└◆1386:Re[4]:二刀流にならない [cosmos] 11/25 14:50
　│　　　└◆1387:Re[5]:二刀流にならない [moon] 11/25 15:22
　│　　　　└◆1388:Re[6]:二刀流にならない [cosmos] 11/25 15:40
　│　　　　　└◆1389:Re[7]:二刀流にならない [moon] 11/25 18:59
　│　　　　　　└◆1390:Re[8]:二刀流にならない [cosmos] 11/25 19:28
　│　　　　　　　└◆1391:Re[9]:二刀流にならない [moon] 11/25 23:02
　│　　　　　　　　└◆1392:Re[10]:二刀流にならない [cosmos] 11/26 00:18
　│　　　　　　　　　└◆1393:Re[11]:二刀流にならない [moon] 11/26 12:15
　│　　　　　　　　　　└◆1394:Re[12]:二刀流にならない [moon] 11/26 12:18
　│　　　　　　　　　　　└◆1395:Re[13]:二刀流にならない [cosmos] 11/26 13:21
　│　　　　　　　　　　　　└◆1396:Re[14]:二刀流にならな... [cosmos] 11/26 13:22
　├◆1397:Re:二刀流にならない [moon] 11/26 15:59
　│└◆1398:Re[2]:二刀流にならない [cosmos] 11/26 16:35
　│　└◆1399:Re[3]:二刀流にならない [moon] 11/26 19:07
　│　　└◆1400:Re[4]:二刀流にならない [cosmos] 11/26 20:31
　│　　　└◆1401:Re[5]:二刀流にならない [moon] 11/26 23:49
　└◆1403:Re:二刀流にならない [ククロ] 11/27 07:33
　　└◆1404:Re[2]:二刀流にならない [moon] 11/27 20:06<-last