my $last = $order[0];                                  # first key

for my $cur ( @order[1..$#order] ) {                   # following keys
   compare($last,$cur);
   $last = $cur;                                       # keep current as last
}