sub fill_up {
    my $str = shift;
    my $pat = shift;
    my $max = shift;

    # $pat DARF nur 1 Zeichen sein, sonst passt die Rechnung nicht
    return $str . ( $pat x (100-length $str) );
}


for ( qw( aaaa bbbbbbbbbb ccccccccccccccccccccc ) ) {
    print fill_up( "*** $_ ", "*", 100 ) ;
}