foreach (@dirList) {
    $user = getpwuid(stat($_)->uid);
    # split up the info that du returns into tokens, resuse @tokens array
    #@tokens = split(' ', qx(du -S "$dir"), 2);
    #$size = $tokens[0];
    $size = -s $_;
    # push the sizes of the users directories onto users stack
    push @{$HoA_Sizes{$user}}, $size;
    push @{$HoA_Dirs{$user}}, $dir;

  }