sub SortDirectory()
    {
       my $arrayRef = $_[0];

##</code><code>##

       my @fileArray;
       my $currIndex = 0;
       my $i;
       for ( $i = 0; $i < @$arrayRef; $i++ )
       {
          if ( (grep /\./, $$arrayRef[$i]) != "" )

##</code><code>##

          {
             $fileArray[$currIndex++] = splice(@$arrayRef,$i--,1);
          }
       }
       push (@$arrayRef, @fileArray);
    }

##</code><code>##

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

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