my $sub = {
    ## do stuff
};

my $result = $sub();