###in textgrab.pm , 3 array lists contains different data
sub GetZone{
. . .
     return \@Zone, \@reverseZone, \@reverseZoneShow;
}

###  in main.pl
...
my $obj=new textgrab;
($Zone, $RevZone, $RevZoneShow)=$obj->GetZone();

# Can now accessed as @$Zone, etc., or manually 
# reassign them with my @Zone = @$Zone;