aus 
while(length($r) < $_[0]) {$r.=' '} 
muss Code  
while(length($r) < $_[1]) {$r.=' '}