Perl - Obtener el tamaño ocupado por cada usuario

#!/usr/bin/perl

use File::Find;

use 5.010;

#Defino las variables que voy a usar

my $directorio;

my $nombre;

my $espacio;

# el % es un tipo de variable array multidimensional

my %resultados;

#Defino el directorio donde voy a buscar los home de los usuarios

$directorio="/home";

#Uso la funcion para abrir el directorio y ver el contenido

opendir DH,$directorio or die "no se puede abrir el directorio: $!";

#Recorro cada archivo del directorio

foreach $nombre (readdir DH){

	#Pregunto si es un directorio, si no lo es, lo ignoro. Ademas ignoro los directorios "." y ".." que son los que llevan al directorio anterior

	if (-d "$directorio/$nombre" && $nombre ne "." && $nombre ne "..") {

		#Busco los archivos que tiene y los sumo para saber cuanto ocupan de espacio

		find(sub{ -f and ( $espacio += -s ) }, "$directorio/$nombre" );

		#Los guardo en un array con los resultados

		$resultados{$nombre} = $espacio;

        }

}

#cierro el directorio que abri

closedir DH;

#OJO AQUI QUE NO ANDA: Intento ordenar el resultado antes de mostrarlo

@resultados = sort {$a <=> $b } %resultados;

use Data::Dumper;

#Muestro el resultado ordenado NO ANDA

print Dumper \%resultados;