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

##</code><code>##

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