foreach my $data (@Clec_id) { $count{$data}++; }