my @opts = qw( a b ... z );
GetOptions(
   \my %opts,
   ( map { "$_=s" } @opts ),
)
   or die("...\n");

for my $opt (@opts) {
   die("...\n") if !exists($opts{$opt});
}