while ($odbc->FetchRow())
		{
			my @hydra_data = $odbc->Data;
			for my $data (@hydra_data)
			{
				if ($data)
				{
					#print $data->{source_mail};
					my @db_info = split (/\s/, $data);
					printf "%s ",$db_info[0];
				}
			}
			print "\n-----------------------------------------\n";
		}