#!/usr/bin/env perl
use 5.014;
use strict;
use warnings;

my $self;

for my $k (qw(foo bar baz)) {
    $self->{$k} = sub { return join $k, @_ };
    $self->{"f_$k"} = sub {
        my $self = shift;
        return $self->{$k}->(@_);
    };
}

for my $k (qw(foo bar baz)) {
    say $self->{"f_$k"}->($self, qw(a b c));
}
__END__
afoobfooc
abarbbarc
abazbbazc
[download]