В Perl, как мне получить это: $VAR1 = { '999' => { '998' => [...
Если я получил таблицу в текстовом файле, например A B 1 A C 2 A D 1 B A 3 C D 2 A E 1 E D 2 C B 2