my $variable = 1;
my $zaehler = sprintf("%03i",$variable);
print $zahler;