in reply to arrays of object in OO perl

Use use strict;! There's a major error in init.