Select Code to Download

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

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