@arr=qw(19205134 18630215 18453487 18416242 18338715 18227590 17698645); @arr1=qw(18227590 18053561 17698645 16966777); foreach $e (@arr, @arr1) { $count{$e}++ }