foreach my $line (@$array) {

##</code><code>##

    chomp $line;

##</code><code>##

print "$line**";

##</code><code>##

my @array = split(/\t/, $line);

##</code><code>##

...}

##</code><code>##

{
    local $/ = ""; # Set paragraph mode
    foreach my $line .............
    ....}
}