99000123
98001234
00000050
01000123
02003445

##</code><code>##

my $workbook = Spreadsheet::WriteExcel->new($file);
	my $wb = $workbook->addworksheet('Current Students');
	my $format = $workbook->addformat();
	$format->set_num_format('@');
	my $i = 0;
	while (my @row = $sth->fetchrow_array())
	{
		my $j = 0;
		foreach my $item (@row)
		{
			if ($j == 0)			{
				$wb->write($i, $j, $item, $format);
			}
			else
			{
				$item = lc($item);
				$wb->write($i, $j, &capitalize($item));
			}
			$j++;
		}
		$i++;
	}

##</code><code>##

99000123
98001234
50
1000123
2003445