Select Code to Download

use Data::Dumper;
use strict;
use warnings;
...
        $hash->{"${key}_$j"} = $val;
    }
}

$VAR1 = {
          'one' => '1',
          'one_2' => '3',
...
          'two_2' => '5',
          'three' => '4',
        };