попробуй так, не проверял.
вот это удаляем
---- BEGIN CUT -----
P::alias {
P::bindkey{MUD::sendl("спасти .".$mgv_name);} "f".$mgv_number;
} "автореск";
---- END CUT -----
# После строчек
$mgv_name = $name;
$mgv_number = $group_number;
# добавляем
P::bindkey{MUD::sendl("спасти .".$mgv_name);} "f".$mgv_number;
тестим
смысл в том, чтобы добавлять бинды по мере парсинга списка группы.
можно и прямее - пройтись по полученному списку %group и насоздавать
биндов...