sub runSomeQueries
{
	my $query = "select LocationID, LocationName from Location";
	my $sth = $dbh->prepare($query);
	if ( $sth->execute() )
	{
		while (my $data = $sth->fetchrow_hashref )
		{
			runSomeSubQueries($$data{LocationID});
		}
	}
}


sub runSomeSubQueries
{
	my $locationID = shift;
	my $query = "Delete from Location where LocationID = ?";
	my $sth = $dbh->prepare($query);
	$sth->execute($locationID);
}