for my $n (qw"foo bar") { *$n = sub { warn $n } } __PACKAGE__->foo();