#	$mes =~ tr/(keys %codewheel)/(values %codewheel)/;
#	$mes =~ tr/[keys %codewheel]/[values %codewheel]/;