use strict;
use warnings;

# $RtnVal = $ActionSubsM{$FormCmd}->( $FORM{'meetingid'} );

my %ActionSubsM;
my $FormCmd = "some_action";
my %FORM;
$FORM{meetingid} = "Hello world!\n";

$ActionSubsM{$FormCmd} = sub { return shift; };

my $RtnVal = $ActionSubsM{$FormCmd}->( $FORM{'meetingid'} );

print $RtnVal;