sub test(\$) {
	my ($scalar_ref) = @_;
	$$scalar_ref =~ tr/a-m/N-Z/;
	substr($$scalar_ref, 0, 0) = "prepended sumthin'";
}