my ($cust, $d1, $d2, $c1, $c2);