由 Perl6 的 for 語法可以發現 pointy-block 的作法，但此法並不限於 for 才能使用，副程式也行喔，例如：

sub compute-it {
	my $sum=0;
	loop (my $i = 1; $i < 100; $i++) {
		$sum += $i;
	}
	return $sum;
}

# 把副程式的傳回值餵給 $var，此即 pointy-block：
if compute-it() -> $var {
	say "come back: $var";
}

# => 結果：
# come back: 4950