sub foo {
    my $x = 'x' x 10;
    ...
}