my ($number, $addr1, $addr2, $addr3, $addr4) = split /,/;