$\ = "\n";
*{'@*'} = sub { @{$_[0]} };
bless my $ref = [ qw(foo bar baz) ];

$method = '@*';

print for $ref->$method;
__END__
foo
bar
baz