my $platz=20;
for(@array)
  {
  $platz+=length;
  }
$platz+=20*@array;