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

foreach my $param (@params) {
	if ($param =~ /^abc_/) {
		$hashref->{$param} = [ 'column', 'text' ];
	}
}

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

##</code><code>##

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