open(F,">outfile") or die;
while (($key,$value) = each %seg000) {
  print F $key , ":" , $value;
}