@file = glob "$dir/MyAccount_OneTimePay_BaseLine.usr/Action.c";
my $row = 1;
foreach $file (@file) {
my $col = 0;
open(my $FILEHANDLE, "<", $file) or die "cannot open file $file: $!";
my @eachline = <$FILEHANDLE>;
my @keywords = qw{lr_start_transaction web_reg_find lr_think_time web_reg_save_param lr_start_sub_transaction web_url web_submit_data};
my $pattern = join("|" => map { "(?<$_>\\b$_\\b)" } @keywords);

my %count;
    for (@eachline) {
        while (/$pattern/g) {
            ++$count{(keys %+)[0]};
        }
    }
	$worksheet1-> write($row,$col,(split '/',$file)[-1],$format2);
	$col++;
for (@keywords) {
	$worksheet1->write($row,$col, "$count{$_}", $format2);
	$col++;
	}
close($FILEHANDLE);
$row++;
	}

##</code><code>##

Use of uninitialized value within %count in string at Aldol.pl line 76, <$FILEHANDLE> line 550.