my %test = ( "option1=s" => undef, "option2=s" => undef);

print Dumper(%test);

foreach my $key (keys %test) {
	GetOptions ($key => \$test{$key});
}

print "\n";
print Dumper(%test);