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