История изменений

Исправление disarmer, 01.12.14 11:34 (текущая версия) :

В perl нет двумерных массивов, соответственно таблицу нужно представить в виде массива массивов:

my @a=(
  [1,1,'Animals'],
  [2,2,'Flowers'],
  [3,1,'Cat'],
);

map {
  $_->[2]=$a[$_->[1]]->[2].'/'.$_->[2];
} @a;

use Data::Dumper;
say Dumper \@a;

Если таблица изначально не отсортирована по id, то стоит добавить sort перед map

Исходная версия disarmer, 01.12.14 11:28:

В perl нет двумерных массивов, соответственно таблицу нужно представить в виде массива массивов:

my @a=(
  [1,1,'Animals'],
  [2,2,'Flowers'],
  [3,1,'Cat'],
);

map {
  $_->[2]=$a[$_->[0]].'/'.$_->[2];
} @a;

use Data Dumper;
say Dumper \@a;

Если таблица изначально не отсортирована по id, то стоит добавить sort перед map