Select Code to Download

my @LINES;

...
    chomp;
    push @LINES, $_;
}

chomp (my @lines = <DATA>);

my $split;

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