package Foo;

sub new { bless {}, shift }

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

package main;

my $foo = Foo->new;

$foo->do { @ARGV }( 'world' );