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

May I suggest push instead?

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