[...]
my %optionen;
my @opts = ( 
        "option1=s", 
        "option2=s", 
        "option2=s", 
        "help|?", 
        "man", 
);
GetOptions(\%optionen, @opts);
[...]