sub SortDirectory()
{
   my $arrayRef = $_[0];
   my @fileArray;
   my $currIndex = 0;
   my $i;
   for ( $i = 0; $i < @$arrayRef; $i++ )
   {
      if ( (grep /\./, $$arrayRef[$i]) != "" )
      {
         $fileArray[$currIndex++] = splice(@$arrayRef,$i--,1);
      }
   }
   push (@$arrayRef, @fileArray);
}