DB<126> use List::Util qw/reduce/

  DB<127> reduce { print "$a,$b\n"; $b } @order
1,2
2,3
3,4
4,5