sub monk1 {
    my( $arg, @data ) = @_;
    ## do stuff
    return @results;
}

sub monk2 {
    my( $arg, @data ) = @_;
    ## do stuff
    return @results;
}
....

my @data = (....);

cmpthese -3, {
    monk1 => sub{ my @results = monk1( @data ); },
    monk2 => sub{ my @results = monk2( @data ); },
    ....
};