my %options = (
    verbose    => 0,
    everything => 1,
);

my %synonyms = (
    verbose => [ qw(
        talkative
    )],
    everything => [ qw(
        all
    )],
);

GetOptions(
    \%options,
    (
        map { join\('|', $_, @{ $synonyms{$_} || []}) } keys %options
    ),
);