#!/usr/bin/perl
use strict;
use File::Find::Rule;
use File::Copy;

my $directory = 'F';
my $newlocation = 'a';

my @subdirs = File::Find::Rule->directory->in( $directory );

foreach my $dir (@subdirs){
  #stat
  move("$dir", "$newlocation/$dir");
}