sub standard_fill

{
my $string = $_[0];
my $length = $_[1];

for (my $i = length($string); $i <= $length; $i++) {
$string = $string." ";
}

return $string;
}