print ( (join (",", @numlist) eq join (",", (1..$#numlist+1))) ? "correct" : "incorrect" );