$i=0;
foreach (split //,$zahl)
{
  $pruefsumme+=$_*(++$i);
}
$pruefsumme%=100;     # auf 2-stellige zahl runterkürzen. % = modulo-Operator, ergibt Rest einer Teilung
$pruefsumme="0".$pruefsumme if $pruefsumme<10;
$zahl.=$pruefsumme;