sub SortDirectory
{
  my($path, $arrayRef) = @_;
  my(@dirArray, @fileArray);

  foreach (@$arrayRef) {
    if (-d "$path/$_") {
      push @dirArray, $_;
    } else {
      push @fileArray, $_;
    }
  }
}