Getopt::Long subs via hash

gistfile1.pl

#!/usr/bin/env perl

use strict;
use warnings;
use 5.010;

use Getopt::Long;

sub list_postinstall {
    say "postinstall: <@_>";
}

sub list_distros {
    say "distros: <@_>";
}

my %opt = (
    list => {
        postinstall => \&list_postinstall,
        distros     => \&list_distros,
    },
);

GetOptions( 'list=s%' => sub { $opt{ $_[0] }{ $_[1] }->( $_[2] ) } );