my %files;
find sub {
    if ( -f ) {
        push @{ $files{ "$_ (" . ( -s _ ) . " bytes)" } }, $File::Find::name;
        }
    }, $directory;