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