foreach $value (keys %DATA{$unko}){
print $value;
}

これって駄目なの？