>> ну а как правильно?
> Трудно сказать, от задачи зависит. В общем случае для копирования сложной структуры
> можно сделать рекурсивную функцию.

ну у меня пока решение такое:
while(my$key1 = each %hash)
{
    while(my$key2 = each %{$hash{$key1}})
    {
        $tmp{$key1}{$key2}[0]=$hash{$key1}{$key2}[0];
        $tmp{$key1}{$key2}[1]=$hash{$key1}{$key2}[1]
    }
}

но если массив будет помассивней, херня получится