Fore the moment only some correction: the block

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

is totally wrong for me: read it two or more times in english to see what i mean.

Also if $c = $line[2] { is totally wrong: maybe you mean if ($c == $line[2]) { instead?

basic Perl documentation can be very helpful to learn control structure and loops.

If i'll still be awake after some duty i'll add some code.

L*