sub big {
  $line = shift;
  $size = length $line;
  print "Size is [$size]\n";
  $line = $line x $size;
  big( $line );
}
big( "12" );