Select Code to Download

($name, $city, $state, $zip) = (split / /, $_)[4,5,6,8];

my ($name, $city, $state, $zip) = (split)[4,5,6,8];