my $anz = 5;
say sprintf('%0'.$anz.'d',.00002);