$Sheet = $Book-> Worksheets->Add;
$Sheet = $Book-> Worksheets("Sheet7");
$Sheet-> Activate();       
$Sheet-> {Name} = "BU Detail";
$range = 1;
foreach my $detail_line (@bu_detail)
{
	my @detail_fields = split(/,/,$detail_line);
	$Sheet-> Range('A'.$range)->{Value} = $detail_fields[0];
	$Sheet-> Range('B'.$range)->{Value} = $detail_fields[1];
	$Sheet-> Range('C'.$range)->{Value} = $detail_fields[2];
	$Sheet-> Range('D'.$range)->{Value} = $detail_fields[3];
	$Sheet-> Range('E'.$range)->{Value} = $detail_fields[4];
	$Sheet-> Range('F'.$range)->{Value} = $detail_fields[5];
	$Sheet-> Range('G'.$range)->{Value} = $detail_fields[6];
	$Sheet-> Range('H'.$range)->{Value} = $detail_fields[7];
	$Sheet-> Range('I'.$range)->{Value} = $detail_fields[8];
	$Sheet-> Range('J'.$range)->{Value} = $detail_fields[9];
	$range++;
}	
@columnheaders = qw(A:J);
foreach $range(@columnheaders)
{
	$Sheet-> Columns($range)->AutoFit();
}