for my $subpkg (@$pkg)
{
	$sql .= "$delim($subpkg->{field1},$subpkg->{field2},$subpkg->{field3})";
	$delim = ",";
}
$query = $db->do($sql);