なんか数えるプログラム

open(FH, $ARGV[0]);

my @a = <FH>;
my $full = 0;
my $ex = 0;
my $hard = 0;
my $clear = 0;
my $easy = 0;
my $failed = 0;
my $no = 0;

foreach my $data(@a){
 $full += $data =~ /FULL COMBO/;
 $ex += $data =~ /EX HARD CLEAR/;
 $hard += $data =~ /HARD CLEAR/;
 $clear += $data =~ /CLEAR/;
 $easy += $data =~ /EASY CLEAR/;
 $failed += $data =~ /FAILED/;
 $no += $data =~ /NO PLAY/;
}

$clear -= $hard;
$clear -= $easy;
$hard -= $ex;

print "full:".$full."\nex:".$ex."\nhard:".$hard."\nclear:".$clear."\n";
print "easy:".$easy."\nfailed:".$failed."\nno:".$no."\n";
my $sum = $full+$ex+$hard+$clear+$easy+$failed+$no;
print "sum:".$sum."\n";