###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();