my @items = reverse unpack 'A3'x(length($number)/3), $number;