my @items = reverse unpack 'A'x(length $number), $number;