my ( $city, $phone, $street, $zip ) = ( scalar <DATA>, scalar <DATA>, scalar <DATA>, scalar <DATA> );