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
);