>[оверквотинг удален]
> ну у меня пока решение такое:
> 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]
>     }
> }
> но если массив будет помассивней, херня получится

ну дак вы учитесь таки пользоваться перлом.
вам же правильно говорят - делайте функцию копирования для структуры,
а то ни про ссылки не знаете, ни про циклы по массиву ...