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