perl -e 'use strict; use warnings; my @num = (3.95,4.95,5.95,8.95,8.94,8.96,9.95,9.96,9.97,9.94,10.08);
foreach (@num){
my $num = $_ *100;
print "$num\t";
my $tmp = sprintf("%010d", $num);
print "$tmp\n";
}'
395     0000000395
495     0000000495
595     0000000595
895     0000000894
894     0000000894
896     0000000896
995     0000000994
996     0000000996
997     0000000997
994     0000000994
1008    0000001008