Unnamed

sub report
{
  my ($owner,@ownersFiles,@ownersDirs,@fileList,@dirList,%HoA_Files,%HoA_Dirs,@t
okens,$user,$file,$dir,$size,$cat) = ("")x13;
  print "Inspecting directory: $directory ...\n";

@dirList = qx(find $directory -maxdepth 1 -type d -printf "%u %p %t %h\n");

foreach (@dirList) {
    @tokens = split(' ', $_);
    $user=$tokens[0];
    $dir=$tokens[1];
    @tokens = split(' ', qx(du -s $dir));
    $size = @tokens[0];              
    push @{$HoA_Dirs{$user}}, $size;
  }

foreach $owner ( sort { @{$HoA_Dirs{$b}} <=> @{$HoA_Dirs{$a}} } keys %HoA_Dirs
 ) {
    print "$owner: @{ $HoA_Dirs{$owner} }\n";
  }

}