use Data::Dumper;
use File::Find;

my $path = '/home';
my @dirs;

{
  no warnings; # Squelch 'permission denied' warning, etc.

  find(
    sub {  push @dirs, $File::Find::name  if -d && ! /^\.\.?$/  },
    $path
  )

}

print Dumper \@dirs;