(
	sub {
		print map {
			$_->()
		} @_;
	}
) -> ( 
	sub{ 'Just ' },
	sub{ 'another ' },
	sub{ 'Perl ' },
	sub{ 'hacker,' },
);