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;   
    printf ("%d\t%010d\t%011.4f\n", $num, $num, $num);
}

395     0000000395      000395.0000
495     0000000495      000495.0000
595     0000000595      000595.0000
894     0000000894      000895.0000
894     0000000894      000894.0000
896     0000000896      000896.0000
994     0000000994      000995.0000
996     0000000996      000996.0000
997     0000000997      000997.0000
994     0000000994      000994.0000
1008    0000001008      001008.0000