your poem contains a grammatical error. redo LONGING until $we = "complete"; should read: redo LONGIN until $we eq "complete";