$originsql = qq{ SELECT a.stop_reference, b.service_id, distance....};
$sth = $dbh->prepare( $originsql );
$sth->execute();
$sth->bind_columns( undef, \$stops, \$service, \$distance );
while( $sth->fetch() )
{