sub hg_split{
	my @slice = split($_[1],$_[2]);
	return $slice[$_[0]];
}