Help for this page
#!/usr/bin/env perl ... return (sort { $b <=> $a } values %consec)[0]; }
1..12 ok 1 ... ok 10 ok 11 ok 12