$opt = "opt" . $ARGV[0];

$subhash = {
    opt1 => sub { print "This is option one"; },
    opt2 => sub { print "This is options two"; }
};

# indicate a function when dereferencing with &
&{$subhash->{$opt}};