Someone

		$world->note($world->ArrayGetLastKey("spellupList"));
		for (my $i = 1; $i = 5; $i++ )
		{
			my @values = split($scConf{'musharrayRecSep'}, $world->ArrayGet("spellupList", $i));
			my $text;
			$text = "[". $i ."] .";
			foreach (@values) {
				$text = $text . $_ . ".";
			} 
			$world->note($text);