shift @words until $words[0] eq $start;