>>>>> "Russell" == Russell Senior <seniorr at aracnet.com> writes: Russell> Changing the @output assignment line to: Russell> @output = ($subject,@{$s->transpose->[0]); Oops, mistyped. That should be: @output = ($subject,@{$s->transpose->[0]}); -- Russell Senior ``I have nine fingers; you have ten.'' seniorr at aracnet.com