Perl Test Script 1

data|data1|data2|
data3|data4|data5|data6

and so forth...there are about 87 fields split in no particular order over 28 lines. So, what am I doing wrong? I am getting an internal server error when I use the following code:

#!/usr/bin/perl -w
print "Content-type:text/html\n\n";
open (DATA, "<../../cgi-bin/tracking_1_db.txt") || die;
while () {
my @items = split (/|/, $_);
}
close (DATA);

Perl Test Script 1

$items[0];
$items[1];