Purely for fun, I did this:

package Array;

use Tie::Array;

use strict;
use vars qw/@ISA $AUTOLOAD/;

@ISA = qw/Tie::StdArray/;

sub TIEARRAY {
 my $class = shift;

 return bless [], $class;
}

sub AUTOLOAD {
 my $self = shift;

 my $method = $AUTOLOAD;
 $method =~ s/.*:://;
 foreach (@$self) {
  no strict 'subs';
  $_->$method(@_);
 }
}
[download]

So now I can do

my @array;
tie (@array, 'Array');
@array = (new Foo,new Bar,new Baz);
my $obj = tied @array;

$obj->method; # calls method on all objects in the array
[download]

But obviously that isn't 31337 enough. So can some obfuscation genius figure out a way to do this:

my @array;
tie (@array, 'Array');
@array = (new Foo,new Bar,new Baz);
@array->method; # calls method on all objects in the array
[download]

?

dave hj~