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(@_);
 }
}