foreach my $user (keys %dateuserfile) {
    for (keys %{$dateuserfile{$user}}) {
        $dateuserfile{$_}{$user} = $dateuserfile{$user}{$_};
    }
}