my ( $city, $phone, $street, $zip ) = map scalar <DATA>, 1 .. 4;