my ($in, @in, %in);

# stuff here

return \%in;	# or %in, as you prefer