Shouldn't the example code be...

my $obj = OOtest->new();
foreach my $tmp ( @{ $obj->get_array() } ) {
    # process list
}
[download]

update: guess so since you changed it (well you changed them both to get_list) :)