elsif ($file=~ m/^check.*TT1.dat$/)
my $result = `wc -l $file`;
my ($count, $file_name) = split(' ',$result);
$result{$hashkey}->[0] = $file_name;
$result{$hashkey}->[1] = $count;
$hashkey++;