Help for this page
#!/usr/bin/env perl -l ... for my $k (sort { $a <=> $b } keys %routes_starting_at) { print for @{$routes_starting_at{$k}}; }
$ pm_start_end_graph.pl 0:6 6:12 12:18 18:24 ... 12:18 18:24 12:24 18:24