Select Code to Download

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

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

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

sub SortDirectory
{
...
    }
  }
}