for my $id (keys %account) {
    my $name = $account{$id}{name};
    my $cdate = $account{$id}{cdate};
    my $account = $account{$id}{account};
    my $odue = $account{$id}{odue};
}