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

##</code><code>##

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