foreach my $line (@$array) 
	{
	chomp $line;
	print "$line**";
	my @array = split(/\t/,$line);
...}