while (@table) {
    $new_lot[@new_lot] = shift @table;
    $cat_one[@cat_one] = shift @table;
    $A_services[@A_services] = shift @table;
}