my (@orderitems, %sections_seen);
foreach my $item (@{ $order->items_sorted }) {
my $section = first { my $num = $_->fb_number; $item->description =~ m{\b\Q${num}\E\b} && !$sections_seen{ $_->id } } @{ $sections };
my (@orderitems, %sections_seen);
foreach my $item (@{ $order->items_sorted }) {
my $section = first { my $num = $_->fb_number; $item->description =~ m{\b\Q${num}\E\b} && !$sections_seen{ $_->id } } @{ $sections };