Help for this page

Select Code to Download


  1. or download this
    
my %HoA={
...
          
          
         }
  2. or download this
    sort {$a->{'date'} <=> $b->{'date'} || $a->{'dataentry'} <=> $b->{'dat
+aentry'}} @AoH;
  3. or download this
    sort { ($HoA{$a}[1]*1000000+$HoA{$a}[2]) <=> ($HoA{$b}[1]*1000000+$HoA
+{$b}[2]) || $a <=> $b} keys(%HoA)