my $bk= $Excel->Parse("data/dasnyFootnotes.xls");
	my($r, $c, $wks);
	$wks= $bk->{Worksheet}[0];
	my $entry=0;




	for($r = $wks->{MinRow}; cell($wks,$r,0) !~ /^end$/i; $r++) {
		if(cell($wks,$r,0) =~ /^(\d+)$/) {
#print cell($wks,$r,0)."\n";
			$entry=$1;
			$html[$entry]->[0]= cell($wks,$r,1);
			$html[$entry]->[1]= ""; # pre init avoids warnings
			}
		if($entry > 0 && cell($wks,$r,2) ne "") {
			$html[$entry]->[1].= cell($wks,$r,2)."<br />";
			}
		}