#!/usr/local/bin/perl -w

my $a = "Hugo";
my $a1 = "Hugo bla";
my $b = "Hugo Ernst";
my $b1 = "Hugo";

print _stringFormat($a, 30, " ");
print _stringFormat($a1, 30, " "), "\n";
print _stringFormat($b, 30, " ");
print _stringFormat($b1, 30, " "), "\n";
print "fertig :-)";

sub _stringFormat { # variable, länge, zeichen
	return $_[0] . $_[2] x ($_[1] - length($_[0]));
}