Help for this page
use Data::Dumper; use strict; use warnings; ... $hash->{"${key}_$j"} = $val; } }
$VAR1 = { 'one' => '1', 'one_2' => '3', ... 'two_2' => '5', 'three' => '4', };