Select Code to Download

$sth->bind_columns( undef, \$orig_service_id, \$orig_stop, $depart_ori
+g);

while ($sth->fetch())
...
        depart_time    => $depart_orig,
    }
}

$sth->bind_columns( undef, \$dest_service_id, \$dest_stop, $depart_des
+t);
while ($sth->fetch())
...
        print "\t$ids{$dest_service_id}{depart_time} => $depart_dest\n
+";
    }
}