print "Построение ортогональной структуры.\n";
$el = 0;
print "Элемент гирлянды (0 - признак конца):";
$el = <STDIN>;
chop ($el);
# Начальная инициализация.
@a = ();
$i = -1;
Vvod();
Vyvod();
exit;
# ============= Функции ===================
# ============= Вывод структуры.
sub Vyvod()
{
  print "Ортогональная структура:\n";
  for $i (0..$#a)
  {
    print "$a[$i][0]: ";
    for $j (1..$#{$a[$i]}) 
     {  
       print "$a[$i][$j] ";
     }
    print  "\n";
  }
}

# ============= Ввод структуры.
sub Vvod()
{
  # Если элемент не нулевой, то задаем элементы висюльки
  while ($el != 0)
  {
    $el1 = 0; 
    print "Элемент висюльки (0 - признак конца):";
    $el1 = <STDIN>; # Ввод элемента с клавиатуры
    chop ($el1); # Удаляем символ перевода на новую строку
    $j = -1; # Начальная инициализация
    @b = (); # массива висюлек
    while ($el1 != 0)
    {
        ++$j;          # Помещаем очередную 
        $b[$j] = $el1; # висюльку в массив
        # Ввод новой висюльки в массив
        print "Элемент висюльки (0 - признак конца):";
        $el1 = <STDIN>;
        chop ($el1);
    }
    ++$i;            # Помещаем элемент
    $a[$i][0] = $el; # гирлянды в массив
    # Присоединяем массив висюлек к элементу гирлянды
    push  @{$a[$i]}, @b;
    print "Элемент гирлянды (0 - признак конца):";
    $el = <STDIN>;
    chop ($el);
  }
  print "\n";
}