my $count = sprintf "%3f\n" => $count + 1;