Select Code to Download

#!/usr/bin/perl

...

    return @results;
}

Devel::Timer Report -- Total time: 1.3955 secs
Interval  Time    Percent
...
02 -> 03  0.0452   3.24%  b -> c
03 -> 04  0.0001   0.00%  c -> d
00 -> 01  0.0000   0.00%  INIT -> a

Devel::Timer Report -- Total time: 0.0042 secs
Interval  Time    Percent
...
04 -> 05  0.0002   5.23%  3 -> 4
01 -> 02  0.0002   5.13%  0 -> 1
00 -> 01  0.0001   1.57%  INIT -> 0