for ($i=0 ; $i < $lines; $i++)
{
	for (my $j=0; $j < 6; $j++)
	{
	  print "$data[$i][$j] ";
	}
	print "\n";
}

QP 2/27/2008 555 1000.00   2493819320