for my $element (@array) {
   my @bits = split "\t", $element;
   #do something with the bits.
}