Select Code to Download

use Data::Dumper;

...
    push @{$params{$cur_val}}, $pairs[-1];
}
print Dumper(\%params);

$VAR1 = {
          'option1' => [
...
                         'value5'
                       ]
        };