package foo;
 sub new 
 {
  my ($class) = @_;
  bless { some_scalar        => "blah",
          another_scalar     => "blah",
          some_array         => [],
          an_array_of_arrays => *?? don't know ??*,
         },$class;
 }