my $obj = OOtest->new();
foreach my $tmp ( @{ $obj->get_list() } ) {
    # process list
}