sub standard_fill {
   my $string = $_[0];
   my $length = $_[1];
   
   my $orig_string_length = length($string);

   $string .= " " x ($length - $orig_string_length);
   
   return $string
 }
[download]