/^$re_types(.*)$/ ... !/^$1/ and push @{$type{$1}}, $2;