while (@table) {
    push @new_lot,    shift @table;
    push @cat_one,    shift @table;
    push @A_services, shift @table;
}