my $f = sprintf "%03d", $i;