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