while (<CONTACT0>) {
foreach $c (@cand){
    foreach $_ {