package Complex::Array;
sub new {
  my ($class,@args)=@_;
  # ...
  return bless $complex_array_ref,$class;
}
sub do_funky_stuff {
  my $array=shift;
  # ....
  return $value;
}