my @LINES;

while (<DATA>)
{
    chomp;
    push @LINES, $_;
}


##</code><code>##

chomp (my @lines = <DATA>);


##</code><code>##

my $split;

for (@LINES)
{    my @row = split ('&', $_);