$i = 10;L: print "Hello"; goto L if --$_i;

map {print "Hello"} 1 .. 10;

grep {print "Hello"} 1 .. 10;

$_ = "abcdefghij"; s/./@{[print "Hello"]}/g;

sub foo {
    print "Hello";
    foo($_[0]-1) if $_[0] > 0;
}
foo(10);