perl -wMstrict -le 'my $count = "00000000";
     print qq{"$count"};

     ++$count for 1 .. 42;

     print qq{"$count"};'