@test1{@sorted_original_cellnames} = undef; @not_found_in_original = grep{!exists $test1{$_}}@sorted_top_cellnames;