#! perl
use strict;
use warnings;

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