print join("\t", "Count: $count", "ADDRESS: $address1", "CITY: $city", "STATE: $prov", "Duration: $duration", "Distance: $distance", "Status: ".$response->status ), "\n"; $count++;