Select Code to Download

  DB<120> @order=1..5
 => (1, 2, 3, 4, 5)
...
           }
 => ""
1,2    2,3    3,4    4,5

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

...
2,3
3,4
4,5

while ( my $rec = $data->fetchrow_hashref ) {
    push @{ $result{ $rec->{"ID"} } }, $rec->{"item"};
    push @order, $rec->{ID};
}