Was das Problem mit den "führenden Nullen betrifft" Perl bietet eine Funktion, die das für dich übernimmt.

$string=sprintf( '%04u', $counter );

sprintf wandelt einen wert entsprechend einer Regel in eine Zeichenkette um. Im diesem Fall ist die Regel %04u und besagt: Ein Integerwert ohne Vorzeichen ('u'), soll in eine Zeichenkette gewandelt werden, die aus vier Zeichen besteht ('4'). Wenn der Wert kleiner ist, dann sollen die fehlenden als 0 ergänzt werden ('0'). Das "%" ist eine Markierung, um anzuzeigen das eine Zeichenformatierung folgt. Damit kann man das auch in Größeren Strings nutzen. Als Beispiel:
$datei_name=sprintf( '/bestimmter/pfad/zu/%04u_inhalt.csv', $counter ); Dabei kommen dann Strings heraus wie: