package Foo;

sub new { bless {}, shift }

do { my $n=$_; *${\"n$n"} =
sub { my ($self, $arg) = @_; print "I am $n $arg.\n" } }
for (-1..5);

package main;

my $foo = Foo->new;

$foo->${\(n.@ARGV)}( 'world' );