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