my %HoA={
         1=>["ab",20090101,91010],
         2=>["cd",20090101,91010],
         3=>["ef",20090201,101000],
      ......
          
          
         }

##</code><code>##

sort {$a->{'date'} <=> $b->{'date'} || $a->{'dataentry'} <=> $b->{'dataentry'}} @AoH;  

##</code><code>##

sort { ($HoA{$a}[1]*1000000+$HoA{$a}[2]) <=> ($HoA{$b}[1]*1000000+$HoA{$b}[2]) || $a <=> $b} keys(%HoA)