use strict;
use warnings;

sub fgenerator {
		my %f = (
				add_one => sub {map {$_ + 1} @_},
				log     => sub {map {log($_)} @_},
				times_3 => sub {map {$_ * 3} @_},
				);
		my @t = @f{ grep { exists $f{$_} } @_ }; # ignore unknown names
		warn "Don't know sub(s) ".join ", ",(grep { !exists $f{$_} } @_) if @t < @_;
		return sub { @_ = $_->(@_) for @t; return @_; };
}

my $trans1 = fgenerator qw( add_one log times_3 );
my $trans2 = fgenerator qw( add_one add_one add_one times_3 fun );

my @data = (1, 2, 3);
my @trans = $trans1->( @data );
print "@trans\n";
@trans = $trans2->( @data );
print "@trans\n";