# How to loop through the second layer:  What is in each element of @info?
print "\$info:\n";
foreach my $info_item (@info)
{
	#print "    []='$info_item'\n";

	# Let's try a simple split command:
	my @info_fields = split /\,/, $info_item;
	print "\$info_field:\n";
	foreach my $info_field (@info_fields)
	{
		print "    []='$info_field'\n";
	}
}