sub bla { my $arg = shift; my $big_string = $arg x 1000; }