my $split;

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