Hello bestfa,

In the spirit of TMTOWTDI, here’s an approach that avoids the difficulties of floating point numbers by using only integers:

#! perl
use strict;
use warnings;

for my $i (1 .. 799)
{
    $i =  sprintf "%03d", $i;
    $i =~ s{(\d)(\d{2})}{$1.$2};
    print "$i\t";
}
[download]

Output:

19:22 >perl 1570_SoPW.pl
0.01    0.02    0.03    0.04    0.05    0.06    0.07    0.08    0.09  
+  0.10
0.11    0.12    0.13    0.14    0.15    0.16    0.17    0.18    0.19  
+  0.20
...
7.81    7.82    7.83    7.84    7.85    7.86    7.87    7.88    7.89  
+  7.90
7.91    7.92    7.93    7.94    7.95    7.96    7.97    7.98    7.99
19:22 >
[download]

Hope that helps,