Select Code to Download

my $hashref = {};
my @params = qw( abc_1 abc_2 abc_3 cba cdr car );

...

use Data::Dumper;
print Dumper($hashref);

foreach my $param ($cgi->param()) {
    if (defined(my $arr_ref = $options{$param})) {
        $hashref->{$param} = $arr_ref;
    }
}