use Getopt::Std;
my $o={};
getopts('ab:c:defghijklmnop',$o);

# map { printf "%s %s\n", $_, $o->{$_} } keys %$o;