use File::Find::Rule qw( );
use File::Basename   qw( basename );
my @subdirs =
    map basename($_),
    File::Find::Rule->directory->in($hardPath);