Program Repair Shop

289

     $time[$i]=$Fld[5]; $size[$i]=$Fld[7]; $file[$i]=$Fld[8]; 
     $user[$i]=$group[$i]=$Fld[13];

Store Related Values Together

Use an explicit association instead of a convention:

     $rec[$i] = { time => $Fld[5], size => $Fld[7], file => $Fld[8],
                  user => $Fld[13], group => $Fld[13] };

Now all the information about a single transaction is in a single place
To sort records by size is straightforward:

     for my $rec (sort {$b->{size} <=> $a->{size}} @rec) {
       printf "%8s%8s %12d %8d\n",  
          @{$rec}{'user','group','time','size'};
     }