sub name {

	#%% reference argument if it is not a reference
	my $string = ref $_[0] ? $_[0] : \$_[0];

	# processing	

	#%% use return caveat
	$$string;
}