(
	sub {
		print map {
			$_->()
		} @_[1,0,3,2];
	}
) -> ( 
	sub{ 'another ' },
	sub{ 'Just ' },
	sub{ 'hacker,' },
	sub{ 'Perl ' },
);