#!/usr/bin/perl
use strict;
use warnings;

#
# Daten einlesen:
#
open FIN, $ARGV[0] or die $!;
my @lines = <FIN>;
close FIN or warn $!;

#
# Ausgabebreite berechnen:
#
my $stellen = int( 1 + log(scalar @lines) / log(10) );

#
# Daten ausgeben:
#
open FOUT, '>' . $ARGV[1] or die $!;
for my $i (0 .. $#lines) {
    printf "%0*d%d", $stellen, $i, $lines[$i];
}
close FOUT or die $!;