my $str = '1' x 50; print $str;