# About halfway through the file

my $alphabet = " abcdefghijklmnopqrstuvwxyz";
# Some more variables being defined here that I've left out
my $alphabetised = "1";

until ($alphabetised = "1"){
    # No code here, but when tested, it doesn't run
    until ($x >= (scalar @startingArray) - 1) { # minus 1 is necessary
        # etc etc etc this code doesn't run
    };
};