foreach my $device (@current_list, @temp_devicelist) { $count{$device}++; }