sub DirectoryExists {
        my $param = shift;

        # Remove first element of the array
        shift @{$param};

        # Loop through each directory to see if it exists
        foreach my $directory (@{$param}) {
            unless (-e $directory && -d $directory) {
                return 0;
            }
        }

        # True
        return 1;

}

is there any way to optimize this code ?

is there any good way to optimize this code