>>А зачем?
>
>я хочу проверить как будет работать с фиксированной строкой, а потом уж
>параметр передавать буду
>
>мне , к примеру, нужно "привет" перевести в "privet"
вот это:
@letters = split //, $message;
for (@letters){$_mes = $hash{$_mes}};

print $mes;

замени на

foreach (keys %hash) {
$message=~s/$_/$hash{$_}/g if($message=~m/$_/g);
}

print $message;

и убери элемент '.' из хэша - точку-то зачем транслитерировать??? :)