my $lenght=100;
for(qw(Beispielname Texttext foo bar Nachname))
{
  my $str="** $_ $add".('*' x $lenght);
  $str=sunbtr($str,0,$lenght);
  print "$str\n";
}