Select Code to Download

$ perl -wE 'use Data::Dump; my %h; dd \%h; $_ = "a_b_c"; $h{/a_(.*)_c/
+} = boom_$1; dd \%h'
{}
Can't call method "boom_" on an undefined value at -e line 1.

$ perl -wE 'use Data::Dump; my %h; dd \%h; $_ = "a_b_c"; $h{/a_(.*)_c/
+} = "boom_$1"; dd \%h'
{}
Use of uninitialized value $1 in concatenation (.) or string at -e lin
+e 1.
{ 1 => "boom_" }

$ perl -wE 'use Data::Dump; my %h; dd \%h; $_ = "a_b_c"; $h{(/a_(.*)_c
+/)[0]} = "boom_$1"; dd \%h'
{}
Use of uninitialized value $1 in concatenation (.) or string at -e lin
+e 1.
{ b => "boom_" }

#!/usr/bin/env perl

...
/$re/ and $hash{$_} = join '_', $xref{$1}, $2 for keys %hash;

dd \%hash;

{
  abc_text6_ghi  => "boom_text6",
...
  xxx_text10_yyy => "zoom_text10",
  xxx_text11_yyy => "zoom_text11",
}