($number, $addr1, $addr2, $addr3, $addr4) = (split /,/)[0,1,2,3,4];