print DATAOUT "$_:$ref->{$_}\t";