my (@new_lot, @cat_one, @A_services);
my @table = qw (
    1    R    182
    2    R    111
    3    RC   160
    4    RC   105
    5    R    113
    6    RC   121
);

##</code><code>##

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

##</code><code>##

my @table = (
   [ qw( 1    R    182 ) ],
   [ qw( 2    R    111 ) ],
   [ qw( 3    RC   160 ) ],
   [ qw( 4    RC   105 ) ],
   [ qw( 5    R    113 ) ],
   [ qw( 6    RC   121 ) ],
);