my $decimal = (join '', map sprintf('%0*d', $size, $_), reverse @number)
  =~ s/0+(?=.)//r;