while (m/(\w{1,2})\[(.+?)\]/g) {
  push(@{$hash{$1}},$2);
}